


Institutional Archive of the Naval Postgraduate School 


Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations 1. Thesis and Dissertation Collection, all items 


1997-09 


ARIES : an architectural implementation of a 
multi-criterion Spatial Decision Support 
System (SDSS) 


Falk, Peter R 


Monterey, California. Naval Postgraduate School 


http://ndl.handle.net/10945/7985 


Downloaded from NPS Archive: Calhoun 


Calhoun is the Naval Postgraduate School's public access digital repository for 


/ (8 D U DLEY research materials and institutional publications created by the NPS community. 
| Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS'‘s first 
th 
KNOX appointed — and published — scholarly author. 


INN LIBRARY Dudley Knox Library / Naval Postgraduate School 


411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 








http://www.nps.edu/library 
















pe 
bY 
o 
. 
a 
' 
Ca 
a 
oan 
o 
O oF 
. 
Oo 
f 
Oo 
1 
. 
D 
ca 
A 
oy 
i] 
ol 
oy 
ry 
cy 
ry 
. 
” 
oat 
a 
a) 
o 
' 
4 
i 







































ado 







Steal eee 
Mat TPT de lat bere ee 6 OR 
Ye hard powers OR Pe Tat Cees ee TP ey 
Wi ore badass Er Pe Pe 
Warhep yeer ees! 





































































al i 
rid Fhe err 
ee 
: Pee rar hr Pere Te 
E5%.and PA Path ae". Fateh APPS 1h fect hehe en rrr eer 
eM oa el ed Er aay eS pry oa eth abet oa rot oe ee ee 
Rave cen A Pt irate Herta iy ro RSI Tes Pee RP 
> Oe Bee oe 2Vie0ge RE RT tebe ee mean et Saree 
+ te) LSA tere Ey Ta obs pe eRe po 
Phd ek bee hey 
meat ep 





Pe Td hl rade 
pre re. Ww pee Sy STS Pre 
po Pay ae Oe Pe CT hd) an 
ue % Ae oro etl ete fe 
Cw aon esas asset aoe ah 
Pa TP Pete be al uy eb 
indies rte Pre or} tue y 
tee eo CRP IGT Tt ls he aod hy pa yt 
re Pre peer rere ly Pi | ett yy 
beter pt} Pe iert ot wy Pi 
ee er alte ade « Bed 
Poe HE WEP Me prare ie 
eee ra Te hast A ee a beats 8 Po 
ates Hares Pee eer a BFS PIPES 
Oe eee rated OTT The te ty Ray om 
er Peery Ye oad PTET sya eas 
fat ot ti PE A eae 
Tr) Bigs Yad elles PCY ers 







ree re Pore 











poten 
ri ca he 


OT ined ly 
AL Per ae 
a 










Pp Py att E ; : . : 
s E $ 
= : A a) o ) c n 
N S ARCHIVE Fete ra . . b Tala aa be = 
Sues a fe si A ot wt 6 
Nar r 3 
in) A ous P Wet Lee eats error 
J he M ; Tee Ye Eat Ey HtTY air ts bo 
Po el ial AT od See eH SPICY 
ged Ba eer gp #4: i) or oe Por erp yee mad 
Ss Hest TORS ty Me a Ait Yee hae avert) 
Pe Cy ety c ot HTT a Berd heed 
rs ie eee ee) ofe tebe). Re Pe er hte 
Ce rit 4 
yea) Po ie mI 
re erdcagerds* ae ft Cad 


f ALK ( & S ae r Z a wae on a . ; iG > : . F 7 a "asf 
: * ‘ ee Pris Ae : , ; 
5 wu i, eles | wantea a breaks Y : 5 ‘ be aaah Berea svat 
‘ - : - A ry “8 D - a x te bP tegen stat % 
a + wr. . *@ Ps ear * 




















in dela. Me 1 


1997.09 PRO SR ne 






































era Tone py eee 



















eel 
. ee] 
ee aly vy 7 On hr A Se 
wee PT ee Ces 
sedi @ dg de od ptt Peete 
Ma Ph ad od a0 Ta 
Ate 





* Dee Pee 
peat. ere Tae 


be pee Stee a yey vee peepee er 
5 Saget he Retreat 





+ aie BE 
ibn lode, . 
rer) oi "i TERT ait 

























i Ir} ue ron Pao hh 
mer tirir Arte fate a CE YP Tats. / 
PN er Te ot <tasauh@ eset a oateys ; 
TA Pe 1 gi Dae farts Pt Peeks pea A oe Gas C™PTt ee Phd ce & ; 
Pee eS iste a Sih hep brpser er ed pence hr a aaa pear teed OLS 
Th eo Meer ued na} Aas . Pre Ta TT oe ke EN ae Seis ed bei odo) 
ae ae} wd sprit get aes ‘oe Pet eet s 3.4 pstee deel Hy 
Ge AE, Oo Me E beevediry yt er Te PT Le oer ier 
wer yy ro i CORTE Ae MPO Ta Deed Rey ao mah s® @hatetmare dt” », 
PPT Ore ee he 








ae 
nn at) roby re Pagans ngs 
PP ie ci ell Sov He ar ' 
rarer Th te dehy tpi peau: POPS ne De Ras 
AE Ti ed Lh eed Pe eT The Roel thd 
on ca RefraSadyaet 
eee as We Ye tw 
aes iraedpe & ae 


aT ry) 







] RPT ie yay Per 
Me.) ees EWE recy | Teeth tebe Fert 
F rT r a es a 
Pere i ae mils se renee mod ert at Roe 
be ee rd ber ery rer A ae tre 

vee 


Rr PT mtd 
barre PST I atic: 


























a} 
. 8 . cite A oa é i 
; s @o's o! 
ee Uk 
D 





















Perr Te) 






























ra rid Se . Pr 
sat ips ie era i p27 
19/3 ty: WPL Lon th 2 Pa RPT es wat 
PP rod “Os °% Care Pe fi Chae Luigi $Aake ty ae porta | 
ty fa.a.tit errs Co SLIT Ot Te) sant § Sabon Pap re Pert err oer) are} 
here per oe Pes To eerie Po ou my Peet ol) 4 For ota tsD ada MERTON 
Tae ee YS i he et i Ph Pa Peres PROT dds Kiar BY tare Ch ees. 
< eh Kon a Pyare epee PME YE a hh Lore pte ed Da tear p 14 
PT) ir ras A ete Px 70 
wy ey oh Her re mira a 


Tile th) poe a Prd 

ee re = venpa Yara apt tebe 

a hgbek ce chate te’ Pe TP el al pew yee te ere ca) 
peer Prey rk fatstas: POF TO be wit 

as PT eS hehe 

ay fee +8, a: 





aretha 
yf ye", > 
"138 


o MSCTYE 
9@%- 0 She er 


ru St PITT ai od | 
Ld Le 


vee ee a as 
Pere Tr ome 










rd 
























| Pars 
Pattee PR Saree 


%. 60 ra lezeh oh erwin Pe oy 


OP a tae pre Sar ee Sr er 
Ait ere a’ Sear een err are. ee ery gt 

CW Sr a rod ad Peeters: eked te sé pt thcte tame 

Pare ric Peli) AF arp 4 arte 

borer te to PPL aE S90) AY a ies ae A) 

er a rey rs otras pee Pee 

ee Th ed lee PPR en a bike 

Pee ee ee FPP TORT te ad id e S 

rl De deere ote ahiseamons 
Aer Tels hoe Po te 

ey Ree ee oe els ei 

Pa) a i oN ve Sa Se 
na pee te tee 7 oes 
atest Pe: sh , 


ah. Gadernte o*8 


A IG Bot sh 
i srateinina 
ie taney eee re verte 

Pet ls 
ae has at re eT 
rere rary 32485 ay aree 
pect ay wh atsr-*.& 
A 








































































ae al 
soar rey ts 





aa} : . 
AE ioe US at irk a beer 
py Ph ns al aoe 


OK 
rds Wa Yeh rar 2 iy Mery 
oy. hee Pern, 






























































PY 
f rr hd es La 
Pe | aot T oy) OT ie ee Pe. eh aes 
ges ee Ga eer? a Sid iggy © ot yt are, ere tok Prmeey rth a et } 
24 ‘ Ra tetee teh oe Me DA ohne trdete A eT h BP hs a+ anafhe oe yes a 
an ars} vad The] had B02 eet vl eda 4 Roe Mates Ae US me Os ears sae = 
7 Pr ee) in Fr 5 Ti Ai fe get Per” yd eae OS ae a i be Died 
« Ee ike els PEC a ar Peeenae Y Yar ye eae 
§ i POs sie ie rey 
: " Pe Sa ae Te ae ae Re Rep 
Sot ; Sy etat bet gy ste 5 So) at 
PRS ns" TST oe he! rd Hl vy ate ee a he Sth be tt a 
Pre PL er iets cefierit » bY tt ee ao te a ft wiie %@ ee eed * 
oe Te fy) abe ST h oe he OE ie te ad Pera ke he 
Ps ef ht 
A aes PH oe 


Pa? Te 
erred 











heey whe aa " 
Se ee Te 
RON Ae" 















a 3 
fn" Saher h ; 


ae tet - 

ete i eet ee 

vee herr a) 
Pere a 

































































bd * 
Paes 
aes Via ad 
yt ar a ee) re 
Ct sana we 7 ees | 
Ly SY ier) rh *9".479° e* FS 
Pt boas! or ee b 
a | ep Pe . 
" 4" 1A. 
; et ae aT ihe oa ae We 
: ae +SITS 
rd <n aen d Side Se 
i iS 
rr ll . 
tbe 
r 5S) ed Fore) 
ve ar i) hae te watts? 
hoe pets sane a heck ™ 
A Tel ¢ ett wh Prt 
\ rity roe a a 
io tat enyt Te a! , bees cate gh fe 
oe Ta Pe at 
4 A a pgtededs 
H 7 a 
eter an leh Ty s 
T. 





. oP me 5} ot LP P 3 " 
eat RK hoy ee er ara a 
PF ha) 
oy SRT a th 
Ee Srp HS eed 
«6 
rat i: yr, rari 
t 5 
PSB et ero 
Pe Ora Ce org 
+ ems fro F 
































































































































































































































































































































































































































































































































1 . ae a hd bd F P 
é : ; y ’ Seen Pint 
A i at a, ae bead oh ‘ q e tr Ae A = rei AS " 7) F ; 
5 a ° Fr) | = Pp nha Peo ie te : « grerac ati ea t Aa ; 
Pe Ry ie SALLE tine Me ay rita ee ry 
Ae S St Cs fe ai n ; Ee 5 rer ie patty t. Oe PL f e- BU gs dnp atetote soge grecote i wey Fi 
Ls : : ' a LY A ar ps 2 ces , 4 
a) ie sot a ra PD ra P Po ee ROMER EL ee) Po a ae IF ETE FSW heise bE ie Ue sche os he Ge pe 
PI - p Pan s oan RE Coat men tO POR Re yr re ps TNT i ea water ee tt eke am Niece pape Tha pa SPP a PTE, ht orth 
deh oe . Ta i aaa Ce TO tee ree Aas hae eo eae ta) He PD ab hierar PPO atu ma pet ee eh eee 
Pa bd ' shad wales af Ps 7 see24" 4 38 e 4 se wugth a Se Pr rv 
Paar ar CL a ; ees Bere - +4 5 ' ry a a ar AISALPEDR? grer a 4negl rat Fat beh a2 e ae a Les Te Fy Ae ee F y - peso 8 peas LOA aS a) ion ch ph A 
i or) poe ! Pe é Pet by Ret 2 are uy POEs eee ee] pe Fer etl tied a oer PP Tek Oe 
Ce od a4 \ a 5 sat Wnt! Pease Cth A $ Lap eet} 4 ON Pore engeytys PP ae eae et rh 
ys by 4 7 oe si : i: liane ne ; aed Da yf al Tei oe ef ¢ | Ad awe ae! Sahar as aor ’ Stet rf Wat ed ae ry Ls a id Pr i 
’ ¢ 3 f 5 ‘ , ~ aL 4 e 
ae, oe Ue AC ry earn ‘ 2 ry Rach tt ah gee i Ua ee Ene ate he Ry PAREN. PPP 
a Fe . Poh " ra a REI tt ie bile rer lb) ake 
= ara ah a We ay Hee i ren? ah Fy ates et SEPT barat : igi ou Sea Ad 
7 Aa abana Ms yr 8 er aT id © eek segnety ee OTe Ol be Ae pha hee re i A tps 44 
a J nee Py Le, Se beds c fear Le et vay? 1g? ee tetetet Oe an ot "Se amare". 
iu ear aat 1 Pars hd Le ra a > afeteree eer PL ene antes re wetat Paes ae Pe eT Aap 
ee er iL aa FL Se GE He arth WW en dare gS EEN TA REI ee: 
’ = et ret POT ae Se 04 eee Oe ee fee : rete Ie iee sie cates tse OF Elid ht pee leahd 
era! oe ee ergze store ee Pao ue ee ef PRET etl tae ca eae ie ei ep ae ee peels Beale Pe 
is aR e hi dias L Py Oi fy as AE el de te) 14 ok LT ee we ‘7 ete pra H 4 3 ae ee aed Ft AP atts toe 7 er el oe eer ree 
Seay 5 eet ry agrre Pa Le ci Cr de Lo Pare dd Ld o tyharced a Tora Hi ote fe a Bae F ore fps S Pes ite Pe Pere” ee 7) hee Poe Fer teh | ae Penn re ' 
Pk os ee LC PT ee a SIO Oa ric 1 i Mee bake ese Li rhein! alae Ae agitate Bae eee pL ree FY Oe oe ae aes a I at cd a bo Blah tb pe ppp 
eR! OCIS ae ce GO fs eld pee ie Wel ease PMID ol A eS Re Pay} perme tt ee hae Rites Meas Pal PE a on Bs ae PTS cn hen Mant Had phys: 
7 tse ra oe en ee Pre ha P one rae oe rn ’ Py Pol 1 18d 008 6 i i Pony Po) Pee eens Pei ee rr eee * er od eee Pe ihe, oa Wp 
F ae Le Saree a) re ia Fc UE I ig Va - rea oe cv ‘¢ PH or Tea TATA STITT Lee atte had te aoe tee Seat ae Ei ot pags | 
Foe oon ea Te LL beet ir LO rad faved, oyeratatare vevaur get ms } “ Ue Feat Mtoe HN PPE LE Le al od Late Pre Stet pe pene if arya nt ors 
SP ie Ja Oe ee she A ee a Re ogg etgte OSEAN Ee 1 pigh aa tat caky aee eens Perm hee eS rarae ae eT SS tan Sab ee eR pr PP 
OP raat > penctin wi eat Let Dr Cer er din Da eons | NEA cre Can: ? PTY ho A dO a hecg ee oe Re reer Pr ttt aby Hie Pee P PLL AAP ee ry tee, RS pate ee Pe Te 
: ioe Pa ry are ee us i =a yA 4 f JF a me ad PRES A Ural gate H5- re se oatderreinente! Fi beiie fhe THRAS fafa (| ee Leek. be aie bd PSP reeree re 
Jr erage) v4 a eLPorRy LoL as or. ae aa Reet AS PIS SUP atl Wa ie fe e042 at be ba iT BET a dats A er te BIT POR DUR ILL ela ct lak be eS 
‘ pe’ hee) Oa Cd PP aadsia A am i en le Ur Hi PL De F id te ATTY Lida te RTE oat ori My eI PRES aay ve 
ec A or. OME Lae age oi y ttise fF “lt Pas Her Seer | Pe LD oe ae TF sie ie Ci ieee MITE tT ene? PP re ind Ia te be ho) te cg 
7 ed Pee ee de ‘ UL eh Cre pb ea al kT oa ted a ae FL Bey SAE fp Bs MRT oa hs Pri be abr Rete ory 4% ep PTT a ded eed ree ad, 
Pe cE Ct re PPL er | Tee eee ee Beas ei PA Lert ae Pe PT eT sat bl bat or bee Pe PL a a AY sne"y POT ie dal batts be i eh bet OL on, bos 32 eth OO 
ee » coupes ie eT he ede ‘s he ae et J le on Pr eet ae Rea et ard) Lae Fi ee as bs ee eis partdeg’ iMrta sa tere? Spenser ge ete 
ay a UE K o wp perta a vam s Lr ares Perro Day rt . aT rh Le ald ie 6 ee og a Mad RL td 2d Ae el ho te De a pL ps bath 
eed aa y CE es URC hat 5 eae wd ic Perret) Dey Stee ie be ep eee Patan a gsenye 7° ghee Pore, 
° Pa fas me TMs 7 Lae eh hn a oh eed Pe Aang puritan’ ti Tet als peat een nee ee “9 
if . rypeemad cPiamseiaee 5 oe pero sesecers y's Pet OST Lt Flobots a He Ps Pe a BT ata 1) r ae OPP 
se! ere Mier ; t bg PT yr} Pris) Petia eee Pee Le BP ANTM a an ae ea .eipe ee iad id oe Pe Hi ate HEAL fe RT oe 
east 0 DCL a Ads : : 5 rr) mL ra Pd rer Shea pla ee oe Pd he ee aH te PITT TEN alte Depot hr 9 
a my PU Re SU Le °? Th Lae ae ae ei ed 2 Pha Po aa - WE Le aa he aT Ar Aas Le ao ts Ye aE ot AE etahe ace WEE? Eel est POTN EE 
rd F Poe es i -- He bare Ui) agit fi de i Pd aie er a) Pee A iacae bf pat a) fee pr Pa Us Fat 4 oe Soh be pF Pre er te alles tp 
VTL ne Se Dd vs? PG DiC oie Aa mt Same | ea + pat Meer rer Site Lint hi iad oe Sree nar hy sometg’aois.? Cy tas rd Pog re qnlgy ps 
i Bis e, Pr ee gem ie Uy ee tog te pats! oer core? my “@41 Ofat a ora! te ea be Ae = a Per Ty Nera by Prior ie Prt aie he a REEL a Se Fe nes s Py > Te 
you 8 oD , ) aa oan pre er TSAI at Je AeA pos ee Cad H =! % sonyeen es 2 e4 eine Pye Se Peri mT RR eee 
LOPE Se ae cued rata re err pe PL tay Sel ae TE ve arate RRL Fa Lae MGigl er eda te) AP iB rae Pa T ALT hy baceateal be A ht eT PIED hb Sates ee 
ee io Pe ee ee Dl td Pe ee ee rary Pa | Pie i) ong s ui dl “ i Piel aed a x + “nae ete Pera ety be or ppt it Peer Ger oe Pea Dee Pee rear rT eae Rte ph 
ACC irl Pa TT ee el TATE Tee igouvity Pri PUTS + ed Sea Tet: Hee rH %, rer a eater Met a in Fae PPP PES lle ty a citndine 
Pay en 2 es i Da ns ress (COS OTOL Ire Mra eth ed Aas Deetle ey LEU ery | wise yaaben septa rgewnent ered . riots oe tity Et etd) ld Bite te pel TR PE TT ca eee pone 
PPP Jace Cat LU ay Wire PETALS Li a Marra nd ie ay bh ri Peat fete te ie ie ho Peers etal tia marge 8wencre, Sark seal gece Be vr es ra a he eT costal n-ne ae 
PRAM ey TA eT De rater OLOm eo nh Eres fh ret nore A Sa a ebb ae Pr bid Ist beaen Tt : gree ee te taeet sere? POS egeee Pah eka pep at ” 
PCP Sc hae enle tL An eT aa Orr eT tT ie hi ete soho ye wee LEA) Pires ie ae be oi aise BP tess tm i eit 8 ae IL ap eae erry 7% 
ALP adden ic hcg | eee Hy as Perk CM ei Ae ee Tyee ered FSET - a v4 ee ee ara PPL Pg reed eA ae a re ony yee aed 
P) aq o's pore aes 0 ee a spencer em! «, Se beg a PR meUn eat APL LS i leg Fed Fok bs A+ he 3 id iy ee ent th eat 
P ee oe Cie ede | RC LPL Pa ee a career ane ery™ i? ETP TS eT dahon pf oe see a 
ee as * rad area cach pw gt Tene pe ry fh ‘ aA Pr ier ret. 
ard reid J Pw aii coe segte a ate ats ps - me . ea aad cone ere Arar] b 
A Lar trie O se Set a de ' eg3 fs 0 8% 9 t° of it PS ? 5 ane teat Pe er LL nee 
P, ars a Shite rer ei Be Aaa rh yer iy 1 hg Pott rag ted, tay 
. r Ly) Sas Pw Oy he CT ad ne Cote Ese! he 4 Ale b hi he OE eel roe) ’ pa ee 
4 : : Tate o Po ee | PTT rT Pree kad es hy Seine ra Ey i ae cpt he lk nar tay eters 
Ge Ceara a or Py yin: 0% j aL uN bee 4 Ay te Peleth Cal tote et a} ye ie ae: ey aha Ps Pai ieataht salen Stabe 
Heel ay Rar TURD cae? Brana Men CHARI TH oe Paki at ne EArt 
AAT Ce at ar) AOR TITh Sum eee ert S satafire gia tthe: i On PIT each a 
et Pi Le cd 4 - Perr A Perr ee eo nd AF Raed 7) epee DNS eis at Fee teal r haat cows 
* soe he ds of Ve eats PT eee LP hed ead wyneeare Pe Pa Lhe h tr} ro oes ewee ey 
ia A dee ern Ha AC Ds iatabcal adld 2 pat ts fh PA Phd) Pree les net tt Hee fe alta Leah Bite ctent sth pe 
Pes ee ee Oo aed Dad let satel“ pore Oe ert iy He Hatt or Ramee ee eRe Ie odie Scat 
rat Page tah aire Beate y 1] ata 4 skger ee sant ire. amare eos a Rib tatehs pe Sete be ph eee rN Pr 
Piet , Pa Le D teed rT ae oy 9 ghewve Pee y® ad ee x at ty Oki teh te . Fade hd site 
wees TE x 4 ce Pao Owe a ‘ LAMPS site etal n Hattie eee pieeatie miata nee Seana ee a 
A L te LF al a bs 
Cae a aha j er ATT ae are: Located Pa ae fat any oy Path Skreet shee Lao eS Tt at lle Cate ald dete ie 
Fare me ee ae ot Lt SH aT Le Pee ee ee ae ps “ei vt ba Re af sete tgr ati? rey ee Paper re Sena cey hearin peccieeak arab Sees 
ae ge ae we mene eee ese Oe ie ma REA rs eRe Ty a faa sf aE ee a pnb dehy pn eR MTT hy ee) go a vp ae.¢ terecrersuard? oy ty Re Me bd 
as 0 Oe CLE Ee a Mitac be eof q fl rh y Peat eer ae Sy i Fa ane bn UT bs a pai ae Sa pia ae 
OF) Cele ie Ce un ”, , tae A jx uta Lis yh a) AF ae a Peo A oq egra 5 MeO ret Pe eee ea tk dy eae 0 oF 
Tee Te Fore ioe aU Fe Fea en Se oe Prt td) he i telat aos ete ere Pear al fn OTD 
Laocatt eae fd in set tge Pre it Pama ete ie on f Rr set pt poeta poi dpe api fae 
t . y are ver g° st9 a heasd r Ld 
Pl Fe ae t Ate pl PAPI ILS | f, aren oes ry pelle a ee at ibe a bt bk aa Pais 
ord Key Fy Pyke rere Hen D He ie ue rtrd est Ean bee ee ve oe taste Porte 2 
tg carere Spy ee tence rey e eae shh ae sas eat eth a Cs vis oi " 
oth eid de OTL dt pas oa re (od 
f i Up Ties partets lak a 


th abeae oe ro 
? ed Pe oe tp tod ty Sra 
ie OMA ear hed gael 
a ed: eatin d A PET PIL at iad 
Rea eee het seg! 
























































































































Pe a ia 
Uy 
preset! were 
rie ay F aT he resins eras ease r re ph 
: TS es wir es Pt RTI | F afl) PAN raven t sory revi as 
aOR Bart htt pe ie eyes Pesan tt et oe pan eee RY Ih Sheen ah 
ae ee o SF ie ty ee Orne Paneer Tar REA 4 ie bles LA Bs ahs ation ae Lt J ba yaa? Eh ipa tek eee ha ett aera 
h P Sry ett ‘ ® JC NCIOC i RL ad 'e Sgn e997 he tad Artery OU ORE rs aed ne apne" retarted 7a s nanan set ae 
ee 5 CAI, = a areas | aT ae + ANE AC a f wore rae * blot att iaebent litre cre sored 
Piet 1 ae Ok vA rear Ll Ute a CEU Pan i) £ eceaneeteeeeeat ieitt hd ae ba bel oath tte ef pl en 
Oe ae Li iP rie et rise 8 Pa eC | ial am oh Pv oo iit hek ere apr et alte eR 
ESS a ea CL at pet ee oe iia iacbeoc ie pai ae ec pel i EPS TTT el deed 
vie} rt Cr i A , pt r ie Pie Ace ty da aoe 8 re pad re ed ewreres ai She 
© a PO ROE ener dee tasty ey pte A et 
: a ) a UP eed panera ie ele TR af ne 795025 08) 28 WI 0 WDE 
acer tase oar eee ry a ger er eT ale bee 
UAE or Per et ry St re reels Sys Br nH bas page Sem 3 ba Sh teebepdocru oe a 
TR ie « iF AL fi K- cra Ca iy ren se ata op pee pea TRS rn 2 
Atti aad ony OM ‘I Pah rite pe U i ea i pA le Ne ed bed arse 
Se H Brie Paks i eats] Se tetd bent aee 
: vy i bee yet 
Ld Sd 
ap ere tet 
RA aA Rett 2 









o byates 
See Lk Ae 
ance Ba 1 

re died a) 


te 


te Pa "aad 
Pred Pere a 


5 

rn 
PPLE cin 7 nt 
rT rand a a 










rivet 





epesttee 
eas 
tps 
as 



















































































Py ee ee) Lae Ld 
Pant hte Tr? | La Ha 
et ae tee bd ae 
, oe er aT tT FL f 
a ee seen Ae apes eT ee an ri ee ge Sete Gi 
i] P e s ' CT Pd D 
" is toate rrr cP Aa ™ ve oo “3 ake 4 cat fl 7 Ne ets of f ¥ - a] pat nae pe tee mane 
-: paar ie ec ita 0 ane 7 Pts aay Serta i eer etal LD fore OTT nae di P Cited C 
- ale ie Fl AY ie , 5 2 “ Ade abe A A ae at alan Ha Me Leh ae Ls Sr : pe Ee pT et Ss a Ble 
ry e ry ed ne - OTe ae Ly rr GC 3 
a sul Pe , on ee :" eg Po a Se ea ot Utah ta ERE R ih tegen eran 
Pare ed) ‘ ye shee U rn rh) ET iO he Pan I 17 the Rh Sie iD tela 9 page tH 55 
par iaey atereee |. , ra ase Rae aoe Shed he ov (ed a ial emi ela a 
, "Ot 046,39 eer)? Bik *e 1% ese eae is rhage elk paca pe ni 
aA ee a TT b Lio Lr os UP a at Li ert aa ee AA elo Lae ay EE tL a 
Fry ae ten = Eval or , ee « \ Sd 7 PULL Stie gd Le sed Reh SS 
rie aaa oe er See Ana hes peer atte SPE a see eee 
PCCM ae Ue ae by yy ahaa ate pao ahh ees 
PF Teena Ie | Wek 1 a eae P i ae setae hy ait “py het Pn 
Fi oh 84 : Are bie a H sd Fla bb 40° » Ka ps 
ee A y Ty Ma ¢ 6 1 iY reo4 PYF be Ck te kant d ree rm aidde Lead be di-don 
MAR a VRC ON EEOC my a ’ a a et Sore reesei pk in et spas 
® ad : bi HD Coa) Ui edad LS pias ed 
* UP ro A “ry Pas | Re Lari aoe a a1 ' _ of se th page eat aac! Pe ket 
kf we F ae Br ee : Hn ’ “at oa ; ws it) : mh BY mice Soa Sark H ee Th J wey 
. a * ae ¢ i fy 3 
Rae Lo ir Tn em URE a Ps spencers pa Sata 
ae : we Ti: 0 kd Aart i i Fi 3 ver ad Baits % a rede means in 5 J et hel 
; eG le sei? rt see . = ee BN Pe on dele a bly plate SPT arr 
Pia fee f t ; i? F A 1 cy a6 ee ra SPT to Prats 
. ane re H ay | 4! ay Pt nt . Ptr be CET Ta be an itd 
a eee fy 3 pada bite seit i) 
= aM ce es ori pice pata ty 
tks WELi bed tee SSS ree Fes msde eee" 
= a SO! ay yer ‘ory rd og eg paterned Ft et? bn] 
Teer rere BLE* 





DUDi 
NAVs 1OOL 
MON; 


DUDLEY KNOX LIBRARY 
NAVAL POSTGRADUATE SCHOOL 
MONTEREY CA 93943-5101 





NAVAL POSTGRADUATE SCHOOL 
Monterey, California 





THESIS 


ARIES: AN ARCHITECTURAL IMPLEMENTATION 
OF A MULTI-CRITERION SPATIAL DECISION 
SUPPORT SYSTEM (SDSS) 
by 


Peter R. Falk 


September 1997 


Thesis Advisor Daniel R. Dolk 
Associate Advisor Dale M. Courtney 





Approved for Public release; distribution is unlimited. 





REPORT DOCUMENTATION PAGE Pare novede 


OMB No. 0704-0188 


Public reporting burden for this collection of information is estimated to average 1 hour per response, including the time for reviewing 
instruction, searching existing data sources, gathering and maintaining the data needed, and completing and reviewing the collection of 
information. Send comments regarding this burden estimate or any other aspect of this collection of information, including suggestions for 
reducing this burden, to Washington headquarters Services, Directorate for Information Operations and Reports, 1215 Jefferson Davis 
Highway, Suite 1204, Arlington, VA 22202-4302, and to the Office of Management and Budget, Paperwork Reduction Project (0704-0183) 
Washington DC 20503. 









1. AGENCY USE ONLY (Leave blank) 2. REPORT DATE 3. REPORT TYPE AND DATES COVERED 






September 1997 Master’s Thesis 










4. TITLE AND SUBTITLE 
ARIES: AN ARCHITECTURAL IMPLEMENTATION OF A MULTI- 
CRITERION SPATIAL DECISION SUPPORT SYSTEM (SDSS) 


6. AUTHOR(S) 
Peter R. Falk 


5. FUNDING NUMBERS 


7. PERFORMING ORGANIZATION NAME(S) AND ADDRESS(ES) 8. PERFORMING ORGANIZATION 
REPORT NUMBER 

Naval Postgraduate School 

Monterey, CA 93943-5000 


9. SPONSORING / MONITORING AGENCY NAME(S) AND ADDRESS(ES) 10. SPONSORING / MONITORING 
AGENCY REPORT NUMBER 


11. SUPPLEMENTARY NOTES 


The views expressed in this thesis are those of the author and do not reflect the official policy or position of the 
Department of Defense or the U.S. Government. 





12a. DISTRIBUTION / AVAILABILITY STATEMENT 12b. DISTRIBUTION CODE 
Approved for public release; distribution is unlimited. 
13. ABSTRACT (maximum 200 words) _ 


This thesis describes a component-based methodology for developing a new class of systems called spatial decision support systems 
(SDSS). The methodology is presented within the context of the development of the ARIES (Army Reserve Installation Evaluation 
System) software application, an SDSS designed to evaluate and compare site desirability for Army Reserve unit locations. The ARIES 
SDSS consists of a flexible component-based architecture that seamlessly integrates a user interface, GIS, multi-criteria decision model 
with associated DSS, and data warehouse. To build the SDSS, the ARIES developcrs introduced a new architectural paradigm, 
undertaking a collaborative approach with U.S. Army Reserve Command (USARC) decision-makers to rapidly prototype ARIES using 
component-based technologies. The developers implemented several domain-specific architectures using a formalized proof-of-concept 
heuristic, Concept-to-Code (C2C), which conceptualizes user requirements in architectural terms, and migrating legacy data sources into 
a spatial data warehouse. C2C allowed the resultant ARIES application to be conceptualized initially in general terms, and then | 
specialized architecturally around existing off the shelf components, as design requirements were collaboratively prototyped and | 
implemented within the existing USARC information system infrastructure. C2C facilitated the complete development of a complex, 
map-based system and accompanying data warehouse in the span of a few months with a technical team of three analysts and 
programmers. Significant system performance pains resulted from instituting a Migration Architecture Systern CVLARS) engine to cxtract 
and spatially enable relevant data sources for geographic querying. Additional performance enhancements were also obtained through 
the use of rapid, component-based development techniques. 


14. SUBJECT TERMS 15. NUMBER OF PAGES 
Software Architecture, Heuristic, Application Development, Spatial Decision Support System 294 


16. PRICE CODE 


SEE 


17. SECURITY 18. SECURITY 19. SECURITY | 20. LIMITATION OF 





CLASSIFICATION OF REPORT | CLASSIFICATION OF THIS CLASSIFICATION OF ABSTRACT 
PAGE ABSTRACT 
Unclassified Unclassified UL 


Unclassified 


NSN 7540-01-280-5500 Standard Form 298 (Rev. 2-89) 
Prescribed by ANSI Std. 239-18 298-102 


1 





Approved for Public release; distribution is unlimited. 


ARIES: AN ARCHITECTURAL IMPLEMENTATION OF A 
MULTI-CRITERION SPATIAL DECISION SUPPORT SYSTEM (SDSS) 


Peter R. Falk 
Lieutenant, United States Navy 
B.S., Illinois Institute of Technology, 1988 


Submitted in partial fulfillment of the 
requirements for the degree of 


MASTERS OF SCIENCE IN INFORMATION TECHNOLOGY MANAGEMENT 
from the 


NAVAL POSTGRADUATE SCHOOL 
September, 1997 


NVS ARCHING Wb /é, 
1447,08 , ey 


FALEY 


ABSTRACT 


This thesis describes a component-based methodology for developing a new class 
of systems called spatial decision support systems (SDSS). The methodology is 
presented within the context of the development of the ARIES (Army Reserve 
Installation Evaluation System) software application, an SDSS designed to evaluate and 
compare site desirability for Army Reserve unit locations. The ARIES SDSS consists of 
a flexible component-based architecture that seamlessly integrates a user interface, GIS, 
multi-criteria decision model with associated DSS, and data warehouse. 

To build the SDSS, the ARIES developers introduced a new architectural 
paradigm, undertaking a collaborative approach with U.S. Army Reserve Command 
(USARC) decision-makers to rapidly prototype ARIES using component-based 
technologies. The developers implemented several domain-specific architectures using a 
formalized proof-of-concept heuristic, Concept-to-Code (C2C), which conceptualizes 
user requirements in architectural terms, and migrating legacy data sources into a spatial 
data warehouse. 

C2C allowed the resultant ARIES application to be conceptualized initially in 
general terms, and then specialized architecturally around existing off the shelf 
components, as design requirements were collaboratively prototyped and implemented 
within the existing USARC information system infrastructure. C2C facilitated the 
complete development of a complex, map-based system and accompanying data 
warehouse in the span of a few months with a technical team of three analysts and 
programmers. Significant system performance gains resulted from instituting a Migration 
Architecture System (MARS) engine to extract and spatially enable relevant data sources 
for geographic querying. Additional performance enhancements were also obtained 


through the use of rapid, component-based development techniques. 
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le INTRODUCTION. 


“There is nothing more difficult to take in hand, more perilous to conduct, or 
more uncertain in its success, than to take the lead in the introduction of a new 
order of things.” 

Niccolo Machiavelli, The Prince, 1532. 
“We are living in an information age where almost everything is seen as 
technically possible given the commitment and the resources.” 

Martyn Jones, 

“Information: It’s Architecture and Management’, 1997. 
“We can no longer afford stovepiped systems. And it’s not just an affordability 


issue, it’s a warfighter issue.” 
General Ronald Griffith, Vice Chief of Staff of the Army, 1997. 


A. THESIS OVERVIEW. 


The primary purpose of the research conducted for this thesis is to investigate and 
document the architectural approaches used in developing the Army Reserve Installation 
Evaluation System (ARIES) spatial decision support system (SDSS) for the United States 
Army Reserve Command (USARC). The objective of ARIES is to automate the process 
of evaluating, potential relocation sites for units of the Army Reserve from the vantage 
point of military readiness. 

Successful implementation of the ARIES SDSS could greatly assist the Army 
Reserve in its effort to ensure that a consistent, analytical approach to relocating units is 
adopted. Additionally it would also significantly reduce the time spent by USARC 
decision-makers manually tracking, calculating, and assessing the multiple criteria 
relevant to each facility’s site desirability. The use of information technology (IT) in the 
form of an architecturally-driven prototype application can improve the quality, 
timeliness, and accuracy of the Army Reserve Unit relocation decision specifically, and 


of similar spatially oriented decisions in general. 


B. THE MOTIVATION FOR ARIES. 


The sponsor of this research is the Force Support Package (FSP) Readiness 
Office, a hierarchical component of USARC based in Atlanta, Georgia. This group is 
tasked with properly assessing and improving the military readiness of priority Troop 
Program Units (TPU). In the spring of 1996, several field-grade officers of the FSP 
approached the Naval Postgraduates School (NPS) building a decision support system to 
automate and expedite the selection process for relocating Army Reserve units. The 
manual process currently in use is unnecessarily complex, unwieldy, and limiting for 
USARC decision-makers, and a technical solution offers increased degrees of freedom in 
making these crucial readiness decisions. 

Under the mantra of “Resources to Readiness”, USARC and NPS formed a 
collaborative partnership to explore the concept of automated decision-making for site 
location decisions. The research project was undertaken by an NPS team of two 
academic principal investigators and three application developers. This team identified 
location as one of the critical factors affecting unit readiness, and based upon this 
assumption, implemented a computer based decision model to support the unit relocation. 
A spatial decision support system was used to leverage the geographic nature of the 


decision problem. 


C. OBJECTIVES, SCOPE, AND METHODOLOGY. 


1. Objectives. 


The ARIES application was accomplished by integrating a multi-criteria Army 
Reserve unit-decision model (ARU-DM), over a dozen USARC data sources and 


geographic information system (GIS) into a SDSS. The SDSS was developed using rapid 


prototyping based upon a component-based development heuristic, Concept-to-Code 
(C2C), and domain-specific architectures. The design heuristic was used as a structured 
means to assist the end users in conceiving the desired system, to facilitate development 
of a Data Migration Warehouse (DMW), and to enable the developers in systematically 
engineering the SDSS application to fit within the existing USARC Headquarters IT 
infrastructure. 

The objective of this research is to describe how the C2C approach facilitated the 
development of a complex, map-based, multi-criteria decision support system with a 


small team in a matter of months. 


De Scope. 


This thesis addresses only the issues involved in architecturally developing and 
implementing the ARIES SDSS using component-based technologies. For a more 
complete examination of the issues involved in framing the Army Reserve Unit Decision 
as a Multi-Attribute Utility Theory model, refer to LCDR Mark A. Murphy’s master’s 
thesis “An Automated Spatial Decision Support System for the Relocation of Army 
Reserve Units” (Murphy, 1997). Additionally, the development of the Data Migration 
Warehouse was spearheaded by LCDR Robert W. Dill and the issues of data warehousing 
and data quality are discussed in his master’s thesis “Data Warehousing and Data 


Quality for a Spatial Decision Support System” (Dill, 1997). 


3. Methodology. 


The primary function of the ARIES SDSS is computation of the twenty decision 
parameters identified in the ARU Decision Model from the extracts of designated data 
sources in accordance with elicited processes and user selections. USARC specified that 


the ARIES SDSS should access only the existing Information Systems (IS) infrastructure 


and historical databases as the primary sources for computing decision model parameters. 
This avoided the need for additional data collection and data normalization. The impact 
of this constraint on the ideal model structure, derived from user specified requirements, 
was carefully evaluated and implemented. Managed data resources were properly 
identified from those readily available to USARC. The consolidation of multiple sources 
into an appropriate database schema for this software application presented a significant 
technical programming challenge. 

Due to the limited availability of programming resources and user specified 
requirements, the SDSS needed to integrate various commercial software tools. An 
RDBMS and a DSS were combined to manage and manipulate the data. Because of the 
spatial significance of many of the variables, a GIS was also incorporated for both 
displaying, selecting, and manipulating the information. The proposed software system 
contains five major subsystems: the ARU decision model, a single point user interface, 
data migration management, geographic information system (GIS), and a client-server 
architecture design. 

To rapidly accomplish these tasks required the development team to concurrently 
innovate and integrate several technical disciplines in ways not previously envisioned. 
The fina] result was a SDSS prototype that incorporates the leading-edge aspects of 
spatial mapping, geographic selection, data warehousing, and decision support 
technologies. 

Component-based application development based upon a systematic and 
architecturally-driven approach was used in developing the ARIES SDSS client-server 
architecture. Rapid prototyping techniques were also used to conceptualize the product 
design in accordance with user requirements and provide functionality for differing levels 


of detail in capturing the decision knowledge. 


The current version of the ARIES SDSS prototype was implemented by the NPS 
development team using Microsoft’s Visual Basic for Applications (VBA) programming 
language with and third-party software including MapInfo Corporation’s integrated 
mapping components, MapInfos’ Basic development language, and the Logical Decision 
for Windows (LDW) decision support system. The SDSS was based on the client-server 
computing model and used the Microsoft OLE 2.0 communication protocol as the 


primary means of component communication. 


D. ORGANIZATION OF THESIS. 


This thesis contains useful information on building applications using component- 
based development from a software architectural point of view. It should be particularly 
valuable to decision-makers, information system architects, computer programmers, and 
data managers. The balance of this study is structured into several modules and 


organized as described below: 


¢ Chapter II - Opens with a futuristic scenario description about potential uses 
for next generation (NEXGEN) versions of ARIES. Additionally, a 
background discussion is provided about the USARC organization, their need 
for a SDSS and an overview of the intended system. 


¢ Chapter III - Discusses the benefits of using component-based development 
in conjunction with a new software architectural paradigm (Architectonic) 
through the use of a design heuristic (Concept-to-Code). This chapter closes 
by describing the ARIES SDSS creation using the design heuristic. 


¢ Chapter IV - Discusses the lessons learned from using component-based 
development and rapid prototyping when developing complex spatial 
applications using existing infrastructure. 


¢ Chapter V — Provides future recommendations for further study and presents 
the conclusions of this thesis study. 





WT. BACKGROUND. 
“Nothing is Built unless it is Imagined First.” 
NRaD “Command Center of the Future” Motto. 


“Our ability to imagine complex applications will always exceed our ability to 
develop them. ” Grady Booch, Object Solutions, 1996. 


“The hardest single part of building a software system is deciding precisely what 
to build.” Fred Brooks, “No Silver Bullet’, 1987. 


A. FUTURE SCENARIO. 


1158 HRS: Colonel Jackson R. McMurdo, Army liaison to the newly formed 
BRAC Commission 2000 on active and reserve Army unit basing matters, was looking 
forward to devouring his pastrami on rye when the phone rang unceremoniously. He 
answered impatiently and mediately recognized the frantic voice of Randolph Braid, 
Senator Jeremiad Beauregard’s BRAC aide. McMurdo knew the drill without hearing 
another word. As the BRAC chairman, the senior Senator from the Southeast was taking 
considerable heat from the Senate Armed Services Committee about closing bases V, X, 
Y, Z, and corresponding Army unit relocation. An alternative plan consisting of only 
closing bases X, Z, and adding bases W and U had been suggested by the Committee, 
wherein the displaced Army units would be relocated to base Y. This was an 
unanticipated scenario based on previous assumptions and findings, and the Senator 
would need this counter-proposal analyzed before reconvening within the hour, or the 
whole BRAC list could lose the full support and recommendation of the Armed Services 
Committee. 

‘How does it look if we keep open bases V and Y and close bases U, W, X, and 
Z?” Braid asked breathlessly. 


“Off the top of my head it appears to be a viable alternative, but I’]] have to run it 
through the SDSS to be certain.” McMurdo disliked these incessant fire drills from 
Congress and let his pique slip ever so lightly into his tone. 

“Jack, we need you to disregard the condition of the equipment and facility age, 
and focus instead on civilian employment and impact on the community at large if those 
bases are closed and their units relocated.” 

“Consider it done. Just ensure the Senator’s NetPC Pointcast is set to receive 
multi-broadcast material and the multimedia presenter is in automatic mode.” 

“Understand. Thanks Jack,” said Braid contritely, hanging up his cellular phone. 

1206 HRS: Turning in his chair while setting his lunch aside, Colonel McMurdo 
stoically started his wireless laptop and logged into the Pentagon’s DoD Intranet. 
Accessing the U.S. Army website, he launched the “ARGJS 21” applet and began 
configuring the network user interface (NUI) for the appropriate mapping component and 
DSS model preferences. 

He then entered the Dept of the Army Data Warehouse and chose the applicable 
DataMarts and databases on military leadership, readiness, competition, and status-of- 
forces to be integrated with the OMB Economic/Financial databases and U.S. Census 
Bureau City/State DataWarehouse. 

1209 HRS: Selecting the “Build Scenario” function, the ARGIS DataMigrator 
began extracting and conditioning the desired data to a disposable database on a remote 
RDBMS server. Simultaneously, the ARGIS Datalntegrator began creating various 
communication links to the BRAC decision model, spatial mapping components, and the 
new BRAC DataDepot. 

1217 HRS: Colonel McMurdo graphically chose the Army units and bases to be 
evaluated and executed the scenario analysis. Using remote automation workflow 


technology, the process co-opted idle network processors to achieve a standard solution 


in two minutes. From this baseline the Colonel reduced the weighting on facility age and 
condition whiling increasing civilian employment valuations. He did not like what he 
saw. 

1221 HRS: Defining a 300 mile radius “what-if” circular analysis polygon around 
the target site, the Colonel redirected the ARGIS Al-Analyzer to determine which units 
must be moved to the target site of interest to achieve the desired outcomes. ARGIS 
reverse engineered the spatial environment and recommended several courses of action 
and budgetary schedules to achieve the objective over the course of the base closing 
timeline. This looked much better. McMurdo recognized the resultant solution as one 
minimizing the economical impact to a thriving community. He reviewed and selected 
the analysis summaries that respectively best supported and contradicted the Committee’s 
argument . 

1232 HRS: Using the ARGIS Animator, he converted the analysis to a data 
visualization movie displaying the best solution with different color-coded alternatives 
over time as bases closed and units relocated. He graphed the economic impact 
thematically per site over time and marveled at the efficiency of the system. 

1244 HRS: The telephone rang again. It was Braid once more. “Jack, the 
committee’s reconvening early! What have you got? We have to tell them something.” 

“No problem, I have just broadcast the textual analysis to Beauregard’s NetPC on 
the Senate floor and the ARGIS Solution should be playing on the large-screen display as 
we speak.” McMurdo was calm and amused as he noted the contrast of his demeanor 
with Braid’s anxiety. 

“Thanks Jack,” said Randolph. “You saved our bacon on this one.” 

1701 HRS: Jack tuned his computer into the Jnet-CNN broadcast and allowed 
himself a small nod of satisfaction to see the lead story was about a remarkable 


breakthrough in the BRAC closure plan impasse. As newscast switched to the ARGIS 


animation film, a voice-over announced in serious tones, “In a dramatic eleventh hour 
move, a compromise was reached in the Senate today.” 

As he watched the screen, his mind lamented about his previous assignment to 
USARC Headquarters so many years ago. Catching himself smiling, Jack spoke aloud, 


“Who would have thought the progeny of the ARIES project would have been so.... 


B. USARC AND READINESS. 


The previous scenario may seem like a work of science fiction, but given the 
continued proliferation of information-based technologies, this future may be a lot closer 
than we think. Until a year ago, if the United States Army Reserve Center (USARC) 
needed to move a reserve unit, the analysis to manually evaluate several alternatives 
required a Herculean effort on the part of the Army analysts. The proposed site selection 
process could take up to 30-40 days to develop just a partial solution. This was due to the 
complexity of the decision, multiple disparate data sources, quantifying subjective 
judgments, and analyzing approximately 1300 possible alternatives. Today, with the 
successful partnership between USARC and the Naval Postgraduate School (NPS), the 
same analysis can be completed in minutes using a deployed stand-alone Spatial Decision 
Support System (SDSS) called ARIES, that shares many similar concepts to ARGIS 21, 
only in a more primitive and prototypical form. The ARIES concept consists of a 
delivery portion and a data and applications portion. The delivery system includes COTS 
hardware and software that provides workflow automation by calculating design model 
parameters. The data and application software satisfied the functional requirements for 
maintaining the data sources, automating business processes, and interfacing with the 
decision-makers. 

The purpose of this research is to increase readiness using Information 


Technology (IT) in a manner that will dramatically improve the process used to select 
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relocation sites for Army Reserve Units. The final outcome is a repeatable and accurate 
process whose cycle time collapses from 40 days to an average of eight minutes per site 
selection scenario. 

These order-of-magnitude improvements in analysis capability can be directly 
linked to the decentralized improvement in IT practices from host-based computing 
(mainframes) to a distributed, network-centric computing environment. Computing 
environments that previously were relatively simple have exploded into a plethora of 
networks, clients, servers, and component-oriented systems. Computing complexity has 
skyrocketed and with it the future potential for greater usage. Technological choices, 
although daunting, have now begun to take into consideration the issues of scalability, 
extensibility, and an increasingly uncertain future. Technological solutions are becoming 
the means to effectively and efficiently increase military readiness. 

At the 1994 Software Technology Conference in Salt Lake City, Utah, the 
Honorable Emmett Paige, Assistant Secretary of Defense for C31 illustrated the strong 
interdependence that exists between information technology and military readiness in his 
keynote address: 

Software drives Military Readiness. As such, our military state of 

readiness is changing to support fighting and winning two major regional 

conflicts at the same time. As the world situation changes, it becomes 
increasingly the case that we will have to project our military capability 

with less notice and more precise results. The Secretary of Defense has 

made it clear that our highest priority must be readiness. We must get our 

software act together...and provide the support that our war fighters need, 

wherever they are, no matter how short a notice. And we must proceed 

with a sense of urgency 1n making our software become predictable, in the 

sense of its high quality and high contribution to the defense mission. 

(Paige, 1994) 

This situation presently confronts all military commands, and the work described 


in this thesis takes a useful step forward in answering the challenge of increased readiness 


for the U. S. Army Reserve Command. 
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ie United States Army Reserve Command. 


Public Law 101-510, the Defense Authorization Bill of November 5, 1990, 
provided for the establishment of a U. S. Army Reserve Command under the command of 
the Chief of Army Reserve (Figure 2-1). “Since the completed transition on September 
30, 1992, the USARC has assumed peacetime command and control of all United States 
Army Reserve forces, except for Special Operations elements and United States Army 
Reserve forces located outside of the continental United States” (DOD IG, 1993, p. 12). 

The Department of Defense’s 1993 Inspector General, described the USARC 


mission objectives as follows: 


¢ “Command, control, support, and ensure wartime readiness of the U.S. Army 
Reserve Forces. 


¢ Organize, train, and prepare U. S. Army Reserve units for mobilization and 
commitment to a wartime theater of operations. 


¢ Manage and execute all Operations and Maintenance, Army Reserve (OMAR) 
and Reserve Personnel, Army (RPA) funds allocated by Headquarters, 
Department of the Army. 


¢ Support mobilization as directed by FORSCOM.” (DOD IG, 1993, p. 14) 


In order to comply with these ascribed functions, USARC “...decision-makers 
must be able to effectively manage the resources supporting readiness and mobilization 


preparedness” (DOD IG, 1996, p. 22). 


The capability to accomplish this goal is directly related to the 
management and availability of information. The existing...Army Reserve 
information systems are unable to provide timely and accurate information 
to decision-makers to...[enable either unit relocation or] mobilization 
planning...as required to meet contingency plans. (DOD IG, 1996, p. 22) 


The Army Reserve Command must often manually compile 
information requested by commanders and higher headquarters. 
Additionally updating information is time and manpower intensive and, 
therefore, is often not done as frequently as needed. (DOD IG, 1996, p. 
ws) 
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Figure 2-1. U.S. Army Reserve Management Structure. 
After (DOD IG, 1993, p. 13) 


With the 1994 Department of Defense stipulation to buy Commercial Off-The- 
Shelf (COTS) technology whenever possible, USARC is currently migrating its 
information systems and networks from legacy applications and databases to well- 
supported commercial software suites running Microsoft Windows 95 and NT-based 
environments. 

Because of the huge expense of maintaining and operating legacy information 
systems, limited resources are available for new application development. Failure to 
think strategically about software development has lead to the formation of many stove- 
piped applications and “data silos of information.” In order to counteract this downward 
spiral, the high costs of these systems must be effectively leveraged using commercial 
technology. Instead of deploying systems that meet USARC’s short-term needs, USARC 
needs to develop applications capable of change and of evolving with changing business 
processes. 

In response to this challenge, USARC established a partnership with the Naval 
Postgraduate School to develop an Army Reserve Unit Decision Model (ARU-DM) and 
SDSS prototype to automate the site relocation analysis of existing reserve 


facilities/units. 
Di Readiness Issue. 


The sponsor of this research is the Force Support Package (FSP) 
Readiness Office, a recently formulated component of the U.S. Army 
Reserve Command. This group is tasked with assessing and improving 
the readiness of priority Troop Program Units (TPU) across the country. 


A TPU is the basic building block of the Army Reserve force, typically 
consisting of about 150 reservists. The TPU’s that are of most concern to 

the Readiness Office are in the FSP, which are the units designated for 

rapid deployment. (Murphy, 1997, p. 1) 

Military readiness can be classified into two types, operational and structural, 


which differ in granularity (Betts, 1995). Operational Readiness deals with status of 
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individual units whereas Structural Readiness deals with the overall force structure in the 
sense of “how soon a force of the size necessary to deal with the enemy can be available” 
(Betts, 1995). The focus of this research is on the operational readiness of those Army 
Reserve units scheduled for rapid deployment. In this context, readiness primarily refers 
to personnel readiness, the ability to maintain enough properly trained and qualified 
people. 

The statistics chosen by USARC decision-makers to function as the primary 
indicators of unit operational readiness are Fill Level, MOS Qualification Level, and 
Turnover Rate. The high personnel turnover rates recently suffered by the USAR have 
significantly reduced readiness, With the average retraining period lasting nine to ten 
months, between 20 and 30 percent of the required positions are routinely filled by 
unqualified, non-deployable individuals (Murphy, 1997, p.13). Although Military 
Occupational Specialty (MOS) qualifications are not always a direct measure of 
warfighting capabilities, unqualified individuals directly diminish the number of soldiers 
available to supplement active forces. 

Performance in these areas can be related to numerous location-dependent factors, 
ranging from access to preferred recruiting markets and distances to various training 
support sites. The most significant location related factor is the recruiting market; for 
unlike the active services, reserve units must recruit exclusively from the local 
population. When a unit is struggling to maintain personal readiness, sometimes the best 
solution is unit relocation. This thesis is based on the “...premise that, holding all other 
readiness variables constant, it is possible to improve the operational readiness of some 
Army Reserve units by relocating them to preferred areas as indicated by a variety of 


location-related attributes” (Murphy, 1997, p.13). 
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a Army Reserve Unit Decision Model (ARU-DM). 


Before the creation of a manageable model could proceed, it was necessary to 
clearly define the TPU relocation problem. 


Although USARC representatives suggested a variety of ways in which to 
understand the importance of unit location (e.g., distances, market 
supportability areas, overlap between units, etc.), it quickly became clear 
that the primary objective was to relate location to unit readiness. The 
decision was made to develop a [decision] model that could isolate and 
evaluate the location sensitive portion of the unit readiness problem. 
(Murphy, 1997, pp. 19-20) 


“Our methodology was to interview the USARC experts to determine: 


¢ A goals hierarchy consisting of intermediate goals and decision parameters, 
¢ Tradeoff functions for each parameter in the goals hierarchy, and 


¢ [Identify the appropriate] weights for each of the parameters.” (Dolk, et. al., 
1996). 


Based upon the concerns and priorities of the USARC experts, the NPS 
development team decomposed the overall objective of Site Desirability into twenty 
measurable decision parameters. These parameters were identified as objective, 
measurable attributes of a desired site location and loosely grouped together in three 


categories: People, Places, and Things (Table I). 
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Table I. Army Reserve Unit Decision Model (ARU-DM). 
a. General Assumptions 


Although this modeling effort “...does not provide a rigorous, causal 
model of readiness, it 1s assumed that the hierarchy of screening factors provides a 
meaningful assessment of the propensity of a given location to support the achievement 
of high levels of readiness” (Murphy, 1997, p.31). For the ARU decision model, the 
expert panel assumed that the basis for evaluation would be a single reserve unit. One 
alternative to this, relocating a portion or derivative of a unit, may sometimes be more 
appropriate, but this was not considered in the decision model. Secondly, derived reserve 
unit metrics had to be calculated directly from data sources available on the USARC local 
area network which would be implemented in the final application. Lastly, the “area of 
the proposed site” refers to the region within 50 miles of the zip code centroid center in 
which the proposed site 1s located. 

This proposed location will have little or no influence on where people 


chose to live. People will not move just to be closer to the unit or relocate 
when the unit does. (Murphy, 1997, p. 30) 


b. Goals Hierarchy 


Using the identified decision parameters, the ARU relocation decision was 
structured into a goals hierarchy using Multi-Attribute Utility Theory (Figure 2-2). 


Location data are extracted and conditioned from USARC’s corporate data sources and 
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Figure 2-2. ARU Decision Model Hierarchy of Goals. Each component of the 
hierarchy is organized by its type (goal, subgoal, or parameter) and identified by the 
hierarchical level at which it exists. Within each section, components are listed 
alphabetically and levels are ordered from top to bottom. After (Murphy, 1997) 


converted to common units of reference using twenty different utility function curves. 
There was one utility curve developed for each decision parameter. The outputs of these 
utility functions are repeatedly combined, based on the hierarchical structure of the ARU- 
DM and the relative weights elicited from the experts, to produce the overall scores used 


to rank the alternative sites. 
C. DSS Software Component 


The COTS software package selected by the NPS Development Team for 
implementing the ARU-DM was Logical Decisions for Windows (LDW). It was chosen 
as the DSS software component “...primarily because it supports explicit specification of 
tradeoff functions for each parameter as well as five different decision analysis 


techniques, both quantitative and qualitative” (Dolk, et. al., 1996). 


4. USARC Source Data. 


The SDSS prototype was originally implemented as a stand-alone Windows 95 
version but is currently operating in a Windows NT environment on the USARC 
Headquarters’ Local Area Network (LAN). One of the stipulated pretexts of the 
prototype was that the databases currently present on the USARC LAN are the only data 
sources eligible for deriving ARU-DM parameters. The primary reason for this is that 
USARC wanted to be able to deploy the SDSS application without having to shift the 
burden of administratively supporting it to the USARC IS Staff. 

The native data sources are composed of a multitude of large multi-vendor 
databases (Table II). These databases are mostly flat file structures that were haphazardly 
instituted to support several independent USARC applications as they were deployed on 
the LAN. Some of the files are ad hoc derivatives of larger off-site mainframe-based 


databases, periodically updated from USAR Headquarters in Washington, D.C. 


ey 


Ownership and maintenance of the local data sources is distributed amongst the primary 
user base of the stove-piped applications (Appendix A). Additionally, there is no 
centralized data dictionary or repository maintained for the data sources or the metadata 
that constructs them. Consequently, there is little consistency between the data source’s 
design, structure, format, or key index fields. Database field names are different for 
similar data sets, and most of the files contain incomplete, inaccurate, and missing data. 
This complete lack of common institutional data standards greatly complicated the 
development of an integrated data framework for the SDSS prototype (Figure 2-3). To 
compensate for this unexpected lack of data quality and to provide a stable baseline 


database for deriving the decision parameters, the development team was compelled to 


FILE NAME SOURCE LAST FILE SIZE No. RECORDS 
_ 1042 oRe UPDATE 
Pp PLACES | TZ OCT 90 
ON J NOV 96 


1 SIO 
AN A 4) 7, 
eellee les bier 


: 


cS 
BS: |\Ge|(ee| ou! |oe! |ee 


| 


Pol 


ee i Oe 

5° 

fe 7 

ae el 
Ls ae 





Table II. Source Data Tables. 


concurrently design and implement a Migration Architecture System (MARS) engine, 


and a data migration warehouse (DMW) variant — DataDepot (Figure 2-4). 
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Figure 2-3. SDSS Disparate Data Sources Flow Diagram 
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Figure 2-4. SDSS Migrated Information Flow Diagram 
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5. Information Systems Challenge. 


Because the entire TPU relocation decision incorporates such a large number of 
parameters, it is nearly impossible for an unaided human decision-maker to fully consider 
all relevant factors. In the past these decisions were typically based upon a combination 
of intuition and experience, but this ad hoc process was often difficult to build a 
consensus for, communicate, and defend. 

Frustrated with the inadequacies of the approach to such a complicated problem, 
the large number of characteristics per facility, the number of analyses required, and over 
1300 facilities to evaluate, the Army Reserve believed it could deliver 
morecomprehensive relocation decisions by applying a Geographic Information System 
(GIS) and decision-support technology to the relocation decision process. In addition the 
decision support technology had to allow the USARC decision-maker to perform a 
variety of ad hoc analyses of multiple readiness factors to ensure that the relocation 
recommendation was truly warranted and was in the best interest of the moving unit. 
This was the inspiration for a fully automated software application that could select, 
calculate, and deliver spatially-oriented decision data to the ARU Decision Model. This 
visionary aspect of the NPS Initiative, “A Geographic Information System Approach to 
USAR Unit Readiness,” inspired the development of just such an application — the 
Army Reserve Installation Evaluation System (ARIES). 

In order to minimize application development time and maximize previous 
USARC computing investments, it was important that the automated ARIES system 
utilize the USARC IS infrastructure, COTS applications, and historical databases as the 


primary components for computing the decision model factors (Figure 2-5). 
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Figure 2-5. ARIES Conceptual Infrastructure Diagram. 


Additionally, the NPS development team also wanted to prevent the construction 
and deployment of yet another requirements-driven stove-piped application (Figure 2-6), 
instead building one that was architecturally-driven (Figure 2-7). By this I mean an 
application in which the specific requirements are traceable, the architecture is not 
resistant to change, and the coding 1s kept to minimum by leveraging the existing 
software infrastructure. This is the real challenge of developing the USARC SDSS 
application. 

To accomplish this requires a fundamental shift in the way developers think about 
and design integrated software applications. Instead of focusing on the problem as “a 
simple matter of programming,” the development team would focus on the problem as a 
complex systemic concept with interdependent resources and corresponding rule-based 
processes. To manage this approach effectively requires a new rational design process — 
the process is partially proof-of-concept exploitable, fully component-oriented, and 


architecturally refinable. 
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Figure 2-6. The Structure of Requirements-Driven Projects. 
After (Booch, 1996, p. 15) 

In the next chapter we will investigate the reasons for focusing our development 
efforts on architectural design and implementation, develop a component-based heuristic 
that incorporates architecturally-driven concepts, and specifically discuss the application 
development and implementation issues that went into designing and building the ARIES 


SDSS prototype. 
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Figure 2-7. An Architecture-Driven System. 
After (Booch, 1996, p. 52) 
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Hil. ARIES APPLICATION DEVELOPMENT. 


“He who does not lay his foundations beforehand may by great abilities do so 
afterwards, although with great trouble to the architect and danger to the 
building.” Niccolo Machiavelli, The Prince, 1532. 


“New information technologies gradually give birth to new activities, processes, 
and products.” John Naisbitt, Megatrends, 1982. 


“By 1999, component software will be the dominant method of new application 
development (0.7 probability)” Roy Schulte, Gartner Group. 


A. INTRODUCTION. 


There is no single product, book, management style, or “silver bullet” that 
magically leads the developer or development team through a painless application 
development process. “But a sensible use of productive complementary tools and 
techniques, and a shift to a paradigm with proven advantages can over time yield the 
desired results” (Tkach, 1996, p. xii). In the absence of any singular solution, the ARIES 
project used a “proof-of-concept” heuristic, Concept-to-Code (C2C), to guide the 
development team. C2C provided the structural perspective needed to manage USARC’s 
requirements and the implementation of the decision model into a cohesive, integrated 
prototype using various COTS products, a fourth-generation language, and existing 
infrastructure. 

This chapter begins with an overview of component-based development and the 
new computing paradigm shift it ushers forth. Next is a discussion of the generic 
requirements of each of the C2C phases, stages, and artifacts, and the corresponding 
ARIES implementation. The final major section is a summary of the ARIES 


implementation using the C2C heuristic process. 


Pa 


B. BACKGROUND. 


ie Software Development: A Brief History Lesson. 


Prior to the 1990’s, software development consisted primarily of programmers 
and developers using conventional software development models (waterfall, incremental, 
spiral) to build applications with procedural techniques. The majority of these 
approaches involved the systematic use of five basic steps: analysis, design, 
implementation, testing, and maintenance. This was usually sufficient as long as the 
users’ requirements were clearly defined, system architectures were understood, 
complexity was low, and product delivery cycle was measured in years. 

One problem with the conventional ‘waterfall’ software development 

process is that in some situations it may not be possible to define the 

software requirements fully at the beginning of the software development 

effort. Another problem is that there may be a significant risk that the 

design approach created to satisfy the requirements may be inadequate. A 

final problem is that the user only receives the software at the end of the 

complete and lengthy process; the user may need this capability at an 

earlier time. (USAF-STSC, 1992, p. 15). 

Conventional software practices exploited “...the idea that if developers can get perfect 
specifications up front, the end result will be a perfect application” (Whitten et. al., 1994). 


Today this not the case. As computing power and user capabilities have increased with 


technological change, the following phenomena transpired: 
¢ The application development process has become more complex today than a 
decade ago (Tkach, 1996, p. 17). 


¢ “Line-at-a-time programming is...increasingly being replaced by point-and- 
click visual development environments” (Sarna and Febish, 1996, p. 27). 


¢ “Interactive GUI, distributed...processing, very large integrated...databases 
[and] heterogeneous environments....” have become the norm. (Tkach, 1996, 


p. 17). 
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Additionally, most users have become accustomed to a window-oriented user 
interface (U/I), and subsequent interface expectations have risen accordingly. The 
application development process *...has evolved to the point that it’s becoming entirely 
GUI-based and built up from components using techniques of rapid application 
development” (Sarna and Febish, 1996, p. 27). Complex GUIs are becoming standard 
requirements that are not easily accomplished with current techniques. The software 
development methods of the past are insufficient to develop rapidly the scalable, 
extensible, and flexible applications demanded by organizations today. Speed of delivery 
and completeness of stated requirements are the mantra driving the “solution du jour.” 

Currently, organizations want software development to take into account the 
hundreds of millions of dollars invested 1n building IT infrastructure, computing capacity, 
and the resultant morass of accumulated data. The “waterfall” models have failed to 
provide the “silver bullet” solution to application development in today’s “Buy-It versus 
Build-It” mentality. In turn, they have become the legacy methodologies of the same 
legacy data, applications, and systems they helped to create. A better solution needs to be 
found. One answer lies in the increasing popularity of component-oriented computing; 
with the continued maturation of the software industry, component-based development is 
now seen “as an important step toward the industrialization of software that can help to 
transform programming from an arcane craft to a systematic...process” (Taylor, 1991, p. 


iii). 
pa Component-Based Revolution 


Component-based development, the ability to design and build from definable 
objects without the benefits of inheritance or polymorphism, is ready to be the next great 
advance in software development. Although the concept of constructing applications 


with reusable code as been available since the object-oriented revolution, it is only just 
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recently that critical mass has occurred in the computing industry. The pieces are in place 
for component-based application development to achieve mainstream status amongst 
today’s IT organizations. (Chappell, 1997, p. 1) 


The major reasons for this are: 


¢ The growing use and acceptance of Microsoft’s Component Object Model 
(COM) as the dominant standard for PC-based component computing. 


¢ Components are moving off the desktop and beginning to play an important 
role in the creation of client/server applications. 


¢ Broad support for designing and developing components and component- 
based applications with third-party tools and languages. (Chappell, 1997, p. 


3) 


As a developmental process, component-based development (CBD) 

“will supplant earlier programming. archetypes, such as_ structured 

programming and object-oriented programming, as the approach most 

likely to yield significant productivity and reusability benefits. Its 

emphasis on iteration sounds the death knell for the traditional *waterfall’ 

model of the entire development process. One of the reasons that CBD 

will gain broad acceptance is that it offers ways to address the complete 

range of software challenges, from operating system services to 

client/server development.” (Spitzer, 1997). 

Component-based development is not without its own baggage, however. As 
more and more organizations and vendors shift their focus to take advantage of this new 
wave in computing, the more susceptible they will become to the unintended 
consequences of the “revolution.” One of the biggest challenges in the component- 
oriented “revolution” so far is the utter lack of any kind of established methodology for 
effectively guiding the conceptualization, analysis, and implementation of a user-centric 
application, or managing component-based construction from infrastructure components. 

Additionally, there is not a widely accepted standards-based component 
architecture from which to develop applications. Compounding this problem is the fact 


that almost every component-oriented solution is unique in its configuration and 


implementation. Traditional software development methods do not apply. The model 
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currently most applicable is the one an organization develops for its own IS operations 
and IT environment (Hamilton, 1994, p. 43). 

The other reality is that open component architectures — with their 
interdependent servers, databases, clients, and protocols — have a multitude of potential 
connection point failures” (Hamilton, 1994, p. 43). Although, we are still better served 
by past software development practices, it continues to remain horribly expensive to 
construct custom software for automating a particular organization’s unique business 
processes (Udell, 1994, p. 47). ~...Today’s major praplenrs with software [development] 
are not technical problems, but management problems” (DOD-USD, 1987). Developers 
need an efficient means in which to manage and “pre-engineer” modular applications, 
databases, and information flows prior to Fepleament in a real world environment. 
Because the systematic construction of complex software applications from existing 
components remains an ever elusive goal (Garlan et. al., 1995, p. 17). 

From a technical perspective, a combination of component-based development 
and the latest advancements in software architecture such the ARIES SDSS is required. 


The prerequisites for this would need to include: 


¢ A widely accepted component-oriented infrastructure. 


¢ Standard Domain-Specific Software Architectures (DSSA) to guide 
development and enable rapid assembly. 


¢ Commercial and technical environments that fully support CBD integration. 


This alone may be the most important paradigm shift in software development in 
decades. The dawn of the “industrial revolution of software,” whereby software products 


are manufactured in accordance with a specified structure and process, 1s upon us. 
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3% Architectonic Paradigm: The Shift to Structure 


‘Today the term [paradigm] is widely used to define a broad model, a framework, 
a way of thinking, or a scheme for understanding reality” (Tapscott, 1993, p. xii). The 
Architectonic Paradigm — of or pertaining to principles of architecture — mandates a 
shift in conventional thinking about how developers build applications. It requires an 
architectural approach that spans both the business and technical arenas, and that adopts 
the perspective of software construction not as a craft but as a discipline (Davis, 1995). 


This new paradigm consists appropriately of the following aspects: 


¢ Simplicity - easy to comprehend and communicate. 

¢ Task-centric - must map naturally to the customers’ world. 

¢ Changeable - enable rapid, flexible, and scaleable paths. 

¢« Manageable - support heterogeneous platforms, applications and architectures. 


¢ Leverageable - migrate legacy systems and support COTS integration. 


In short, the Architectonic Paradigm is one in which the overall focus shifts from 
requirements-driven to architectural-driven development. It “has all the benefits of 
requirements-driven style, as well as the favorable characteristic of encouraging the 
creation of resilient frameworks that can vaietene shifting requirements and 
technological calamity” (Booch, 1996, p. 21). But the days of designing an information 
system in a vacuum are over. The problems of today are up to 50 times larger in 
complexity than the problems of yesteryear, and the difficulty of developing “good 
enough” solutions is growing at an exponential rate. The developer is always trying to fit 
a new piece into a puzzle that has already been framed and to deal with quirky methods of 
interfacing with the database(s). A developer can no longer afford to build software 
applications from scratch without duly considering the existing infrastructure and several 


components — which are themselves architectures (information, application, and 
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technical) — contained within the structure. The Infrastructure investment holds a 


central position in any planned and future application development (Figure 3-1). 
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Figure 3-1. An Architecture-Driven System. After (Booch, 1996, p. 52). 


4. Infrastructure: The Invisible Hand of Structure 


The previous chapter briefly introduced the notion of architecture-driven 
programming and illustrated how it relates to infrastructure. The central idea is to 
encourage the minimal programming of new applications by using software architectures 
and COTS products already present within the desired operating environment. An 
example in a Windows-based environment would be to develop an application’s U/I 
using Window’s API routines rather than creating new objects and classes in the C++ 
language. Additionally the use of validated infrastructure components require that new 
applications only need to be tested at the points of interaction between existing 


components and thoroughly tested for any custom designed components. This allows the 
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developer to safely assemble and application as opposed to building it. The guiding 
principle is “Buy the Basics, Custom Build only what provides Value” (Knowles, 1997). 

Many mature organizations, already dependent on information systems, are 
struggling to implement this “Best-in-Breed” approach while still maintaining their 
existing lines of business applications. To accomplish this, organizations must 
effectively forge a vision for an enterprise architectural foundation with a (capital “A”) 
and develop domain-specific frameworks that support the integration of single application 
architectures (with a lower-case “a”). Perhaps, the best approach is to fundamentally 
leverage the existing infrastructure in a manner that permits organizations and developers 
to manage heterogeneous components, business rules, and legacy data from an 
architectural perspective. 

The ARIES development team devised the Baseline Infrastructure Archetype 
(BIA) Model to accomplish this objective, and to better understand and analyze the 
infrastructure. Although the BIA Model is generic, it forms the centerpiece of the 
Architectonic Paradigm, and offers guidance for evaluating the features of available 
components and tools used to solve problems relevant to the unique circumstances of 
individual applications. Essentially all of the pertinent technology fits into the multi- 
layer triangular model (Figure 3-2) that incorporates all three infrastructure 
subarchitectures: information, application, technical. These subarchitectures provide a 


triad of interaction for all systems within the Architectonic Paradigm: 


¢ Information Architecture - describes the content, behavior, and interaction of 
all the business and information requests from applications and technical 
components. The information architecture provides the database objects and 
services for application development and provides a information framework 
for other requesting resources. 


¢ Application Architecture - defines the fundamental services and business 
rules within the applications domain. This architecture transparently and 
seamless supports the logic and data processing of the user interface service 
requests. The components of the information architecture are modeled, 
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designed, and implemented in terms of the business rules and processes 
developed in the application architecture. 


Technical Architecture - specifies the actual technologies (components) and 
the software tools that supply the requested services to and from the 


application and information architectures. It is used to implement the 
applications. (Aronica and Rimel, 1996) 


Application Architecture 


Technical Architecture Information Architecture 


SPHERE OF INFLUENCE 


Figure 3-2. Baseline Infrastructure Archetype (BIA) Model. 


The logical layers of the BIA Model that function from the epicenter (interface layer) 


outward are: 


Interface Layer - Provides client-side services to the resources and user. For 


a particular user the layer enables access and interaction with application 
resources. 


Communications Layer -Functions as middleware to connect and manage the 
interface clients with various requested resources. 


¢ Resources Layer - Consists of the DBMS, databases, and data; the 
applications, parts of applications and components; technologies and tools that 
implement the applications. (Hurwitz, 1997) 


Resource interactions that do not require client involvement occur at the angular 
margins, and the byproducts of interaction are conceptually maintained within the circular 
segments of the “sphere of influence”. More simply, the sphere represents the scalable 
world in which the information system functions. Whether it is a standalone desktop 
computer or a mainframe system, the baseline structure is physically different but 
logically similar. The ecological environment in which the spherical microworlds operate 


provide the common platform services: 


¢ Base Operating System (e.g., Windows NT). 


¢ Networking Communications (e.g., NetBUI, TCP/IP, etc.). 


The layers in this model are not the same as those found in a typical three- 

tier client/server model. There is no single service with a single piece of 

middleware, no single graphical user interface, and no single type of data 

all tightly connected. You should think of each layer as a category -- an 

organizing principle. (Hurwitz, 1997). 

This layer approach allows developers to plan the function of various pieces of the 
architecture and determine what to work on first. A specific example of this model will 
be provided later in the next section. 

The next logical question 1s “How can the benefits of architecture be effectively 
extended to component-based computing?” The ARIES development team’s response 
was to devise and institute a methodological heuristic, Concept-to-Code, that embraced 
the Architectonic Paradigm and provided a structural perspective and the means to 


formulate a cohesively integrated application. This will be the focus of our discussion in 


the next section. 
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C. CONCEPT-TO-CODE HEURISTIC 


1. Overview 


The main disadvantage of major information system development, aside from 
architectural and infrastructural issues, 1s that it takes too long to implement full 
production products from untested concepts. It is very difficult to get beyond theoretical 
constructs to practical implementations. 

What is needed 1s a new kind of application development, one supported by a set 
of design ideas that can accommodate pre-existing applications, software infrastructure, 
and COTS products, and one employing a systematic approach independent of tool, style, 
or technique that acts to guide and direct the collaborative efforts of the users and 
developers, and that incorporates Grady Booch’s five elements of a successful project 


application: 


¢ Focus ruthlessly on the development of a system that provides a well- 
understood collection of essential minimal characteristics. 


¢ The existence of a culture that is centered on results, encourages 
communication, and is not afraid to fail. 


¢ The effective use of object-oriented analysis and design. 
¢ The existence of a strong architectural vision and principles. 


¢ The application of a well-managed incremental and iterative development life 
Cycle Gs 00cm 96. ps 25) 


Concept-to-Code (C2C) is just that: a way of getting from a concept envisioned 
by a organization to the specific computer code needed to achieve it. C2C’s primary 
cognitive focus is to prevent the production of ill-defined software early in the 
conceptualization process. The heuristic achieves this by exploring and implementing 


practical solutions in a manner that is independent of a particular computing language, 
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DBMS, and operating environment. Simply stated, by using rapid application 
prototyping techniques and the participatory involvement of the intended users, an 
organization can get exactly what it needs in less time than by conventional methods. 

“In business system development, satisfying the needs of the users 1s particularly 
challenging because even the user cannot know what he wants and needs until he sees the 
system in action” (Scharer, 1986, p. 59). Because written specifications are not a good 
way to communicate with the user, rapid application prototyping was selected by the 
ARIES development team as a practical approach for developing the U/I and the 
application. Prototyping in this case becomes a method of system construction as well as 
a technique for system definition (Scharer, 1986, p. 60). Additionally, it is critical to 


remember the following when using rapid application development (RAD): 


¢ RAD only works when you understand the business problem. 
¢ RAD should not be tool-driven or tool-dependent. 


¢ RAD is only effective when it’s part of a sound application development 
process. (Linthicum, 1997) 


Achieving this RAD effort requires close communication and collaboration between 
intended users and a small, highly skilled development team (e.g., three to eight people). 
The task is to develop a technical artifact for a client or user with more or 
less clear and stable requirements. To cope effectively with the 
uncertainty of this task, an experimental approach is taken in which 
various models, prototypes, and versions are tried to reach a satisfactory 
solution. (Dahlbom, 1997, p. 84) 
By using a methodology or process that integrates the combination of controlled 
development and rapid prototyping, a developer can ensure minimal risk and maximum 
benefit in design. . 
In order to effectively organize the RAD process, C2C was visually conceived as 


a three-layered closed-loop pyramid structure flowing progressively from top to bottom 


and iteratively throughout the structure (Figure 3-3). Each layer represents a distinct 
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“phase change” of the collaborative process, or the completion of an iterative milestone 
of the developing application. Each phase is further sectionalized into two smaller parts 


re, 


called “stages.” As indicated, each stage flows into each other and acts to facilitate the 
focus of the user and developer. The resultant IN/OUT processes of each stage are 


byproducts of this interaction. 


———— | 
CONCEPTUALIZATION _ 


VY 


Domain Prototype 


Techniques 
Strategies 





Figure 3-3. Concept-to-Code (C2C) Heuristic Diagram 


The Conceptualization Phase is focused on identifying and clarifying the concept 
or problem to the extent that the prospective users are able to articulate and the 
developers are able to assimilate. The artifacts of the conceptualization phase are utilized 
by the Visualization Phase to more thoroughly analyze the problem domain, define and 
design stable component architectures, and address the riskier elements of the project. 
This phase will more than likely require several iterative feedback loops to properly 


create the U/I prototype and application architecture in accordance with the user’s 


requirements. The J/mplementation Phase uses the approved byproducts of the 
Visualization Phase employing appropriate application development principles and fourth 
generation language coding skills of the developers. 

Prior to the transition from each phase/stage, a formal review and informal 
walkthrough should be conducted to ensure the resultant artifacts are satisfactory and 
design decisions sound. Usually peer-to-peer walkthroughs prevent a perpetuation of 
inconsistency and incompatibility between user requirements and developer objectives. 
“Formal reviews are intended for acquisition management users and interested parties to 
conclude a software development phase by approving the products and other results of 
that phase” (USAF-STSC, 1992, p. 55). 

A completed cycle of the C2C pyramid and acceptance of the application by the 
user represents a final incremental version that is ready to be deployed in the desired 
operating environment. “The process is incremental in the sense that each pass through 
the...[C2C] cycle leads a project to gradually refine its strategic and tactical decisions, 
ultimately converging upon a solution that meets the end user’s real (and usually 
unstated) requirements, and yet is simple, reliable, and adaptable” (Booch, 1996, p. 29). 
Later in this chapter, I will specifically address each phase and stage in turn, but for now 
it is easier to view each phase and stage as a transition point. 

The apex of the pyramid is the highest point of general abstraction and becomes 
more specialized as the developer gravitates to the foundation. Only as the user- 
developer collaborative ensemble descends the structure do specific commitments to 
particular languages, standards, and operating environments emerge, all the while 
providing a mechanism for feedback that enables architectural refinement and iterative 
development of the concept. The bisection of the upper half (user-driven) and lower half 


(developer-driven) of the pyramid, indicates the primary focus of the collaborative effort. 
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The shaded boxed regions in the first two phases illustrate where rapid prototyping occurs 
dependent on user requirements: 

The Analysis Prototype is an aid for exploring the problem domain. It is 

meant to capture users’ input and show proof-of-concept. The analysis 

prototype is not meant to be used as a basis for development and it should 

be discarded when it has served its purpose. The final product should use 

the concepts exposed by the prototype, not its code. 

The Domain Prototype is an aid for the incremental implementation of the 

solution. It can be used as a tool for staged delivery of subsystems to 

users and other developers. It demonstrates the feasibility and viability of 

the implementation and will eventually evolve into a deliverable product. 

(Tkach, 1996, pp. 52-53) 

Therefore the amount of prototyping is directly proportional to the degree the user 
is able to effectively articulate what s/he wants, needs, and desires (Figure 3-4). This 
dependency upon the judgmental influence of the user diminishes from phase to phase 
(Figure 3-5). Because of this dependency the prototyping for the ARIES SDSS will be 
discussed separately at the end of each phase narrative — each prototype situation is 
uniquely different from the previous, and at a minimum, the U/I-centric nature of today’s 
applications, increasingly demands prototyping to achieve the best fit, form and 
functionality in a very short time. 

This coordinated prototyping capability is what makes C2C far different from 
typical application development. It lends itself easily to rapid application development 
yet is iterative at each phase. “Without a [process] for managing change, all but the 
smallest, simplest projects are at risk of wandering out of control and adding time to the 
development schedule” (Forte, 1997, p. 121). The heuristic on the whole is not a cookie- 


cutter technique, but takes a “systems view” of the concept to be tested and develops the 


application in steps from concept to system to subsystem. 
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Figure 3-4. Level of Prototyping Required Graph. 


MODERATE | MINIMAL 


ANALYSIS DESIGN | DEVELOPMENT 


User Influence 


Concept Characterize Techniques 


Conceptualization Visualization Implementation 
Phase Phase Phase 





Figure 3-5. User Influence on Application Development. 


With this in mind, a more complete definition of C2C is the following: 






C2C is a formalized iterative construct, a heuristic, for developing 
“proof-of-concept” applications in a top-down, component-oriented 
architecture in which users’ objectives, business rules, and 
organizational data are defined and related to one another at the 
conceptual, technical, and implementation levels. 
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The tenet principles upon which this heuristic was based are as follows: 


¢ Manage the complexity of small to medium sized applications (< 100,000 
LOC) through the use of component-based techniques while still embracing 
legacy systems. 

¢ Focus development and modeling efforts on components whose function is 
determined heavily by the user interface and interactions with relational 
databases. 

¢ Where applicable, adapt to changing requirements by maintaining a strict 
adherence to open IT standards-based architectures to ensure interoperability, 
portability, scalability, and data exchange (Libicki, 1994, p.3). 

¢ Ensure application efforts are user-driven, not technology-driven, by 
leveraging the user and developers intellectual capital through rapid 
application prototyping. 

¢ Conduct integrated and continuous testing with the C2C process while 
maintaining a “high level of stability throughout the project by constantly 


evaluating the architecture, interfaces, and...by preventing the accumulation of 
latemtcetccis: (hone 277 spl) 


Now that the basics and underlying principles of C2C have been explained, we 
can delve into the specific regions of the heuristic and how they help to direct the 


development of the ARIES application. 


de Conceptualization Phase 


Concept-based exploration begins with a broad concept — a “term...meant to 
suggest a framework that is found useful in organizing ideas and suggesting actions” — 
and proceeds into a characterization plan to determine and understand the processes of the 
organization, and identify the top level requirements and feasibility of the concept (Scott- 
Morton, 1984). It is essential to understand the business-centric aspects of the 
organization prior to developing the concept. The main goal in the first step of this phase 
is to identify the concept to be proven, and characterize it in terms with which the user 1s 


familiar in preparation for later software development. 
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The second step in the conceptualization process is identifying the specific 
capabilities required to execute the concept by focusing on defining as much as possible 
the elements that best characterize the organization’s stated concept. The goal is to 
develop a characterization of what the application will accomplish without getting into 
the details of how the system actually functions. The term characterization is used 
because process analysis and data gathering are not exhaustive. It is not necessary to 
document every detail. Only enough detail is required to allow informed decisions to be 
made in the creation of the component architectures and U/I prototype. Without the 
insight that a baseline characterization provides, there is a risk of devising a system 
architecture that is difficult to improve. If the customer already possesses much of the 
baseline data, more time can be spent on characterizing the environment. Iterative 
development will subsequently refine the characterization to a specific system. 

Much of this information is gathered through a process of interviews with all the 
individuals (Management, IT staff, and end users) with a vested interest in the 
application; as well as a thorough audit of the existing environment. It is important that 
the intended users of the system be fully involved and participative in the conceptual 
design process. Conceptual errors made in the design are laboriously difficult to correct 
once coding has begun. Developers prefer to carefully analyze and evaluate the 
conceptual design before proceeding to the Visualization Phase. If the user has difficulty 
articulating or characterizing the concept, it is the responsibility of the development team 
to utilize prototyping as a means to elicit the desired information. The Analysis 
Prototype can help to “minimize development risks due to incomplete requirements, and 
to assess whether a user interface can be developed that will allow the designated system 
to operate effectively” (Dolan, 1994). 

Some of the basic concept characterization elements to consider are (not 


inclusive): 
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¢ Top-Level Requirements. 

* @beape. 

¢ Timeline for Product Delivery. 

¢ Performance Criteria. 

¢ Technology Base and Infrastructure. 


¢ Business Rules, Processes and Logic. 


The user is not asked to freeze the functional specifications during this because 
specifications can be revised or changed even after the analysis prototype refinement is in 
progress. Accordingly, this will require a different mind-set than previously conducted 


by software development teams in the past. 
a. ARIES Concept Stage 


The concept USARC was interested in investigating was whether or not 
the manual process of relocating Army Reserve units could be automated using existing 
data sources and computing Tae near Specifically, could a Geographic Information 
System (GIS) be integrated with an ARU-Decision Model to provide users with the 
ability to graphically select and compare reserve units through a common user interface. 
The resultant solution, a Spatial Decision Support System (SDSS), would be a new 
capability that allows the decision-maker to “pull” only the spatially pertinent data about 


desired facilities and “push” the results into the DSS model. 
b. ARIES Characterization Stage 


The desired ARIES system could best be characterized as a software 
application that spatially selects, derives, calculates, and imports the user-identified 


decision parameters into the ARU-DM using USARC data sources. 
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(1) Top Level Requirements 


SDSS application must be a standalone “proof-of-concept” prototype that will 
execute on a USARC-furnished laptop computer running the Microsoft 
Windows 95 operating system. 


Allow the decision-maker to manage the selection of the legacy data sources 
on the USARC LAN. 


Implement a single, consistent user interface that allows the decision-maker to 
graphically or manually select the facilities to be compared. 


Automate the calculation of ARU-DM parameters, using USARC business 
rules, pre-determined data processes, and a GIS. 


Enable the batch printing of pre-determined reports from a default preference 
Sel 


Allow the decision-maker to change parameter weightings and conduct “what- 
if’ analysis on the completed scenario. 


Use as many USARC infrastructure components as possible without adding 
additional administrative burden to the IT staff. 


(2) ARIES Scope 


Data Sources - U.S. Army Reserve Databases (National); Approximately one 
gigabyte. The functionality of the SDSS had to be proven with USARCs’ 
existing systems, using data the decision-makers were familiar with. 


Inputs - Unit Identification Code (UIC) of the moving unit and up to four 
Facility Identification (FacID) unit alternatives. 


Complexity - Support no more than 10 USARC users at a time in the LAN 
environment. 


Constraints - For calculating applicable decision parameters, spatially select 
the closest AMSA, equipment and recruiting sites; Conduct all spatial 
selections within a 50 mile radius of the proposed site; Use USARC’s 
command plan as a master list to validate UIC’s and G17 files as the master 
list to validate FacID’s: Indicate inaccurate or missing data for decision 
parameters with code (-999). 


(3) Timeline 


Develop standalone prototype 1n approximately six months. 
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(4) ARIES Performance Criteria 
¢ ~Conduct each evaluation scenario (up to four alternatives) within two hours 
maximum; Verify each user input using master validation lists; Batch 


automate as much as possible in order to minimize user interaction and 
training. 


iS) USARC Technology Base and Infrastructure 


¢ Hardware (standalone) - Dell Latitude laptop computers with 90 MHz 
Pentium processors. 


¢ Hardware (network) - Numerous multi-vendor desktop computers with 
Pentium Processors. 


¢ Operating Systems - USARC LAN running Microsoft Windows for 
Workgroups 3.1 with a plan to upgrade to Microsoft Windows NT 4.0 in 
Fiscal Year 1997. USARC laptops utilize Windows 95. 


¢ COTS - MapInfo Professional and MapBasic 4.0 mapping software package. 
Microsoft Office 95 Suite. 


¢ 4GL - Microsoft Visual Basic 4.0 Professional Edition. 


(6) ARIES Business Rules and Processes -- Appendix B 


CG ARIES Analysis Prototype 


Because users cannot always articulate what their business requirements 
are or their preferences for the user meres two forms of analysis prototyping were 
used to better conceptualize the ARIES system. 

(1) Contextual. Because direct interaction between USARC 
and NPS was restricted to a maximum of two days per month a contextual style (story- 
boarding) of prototyping was used to elicit from the users the desired functionality of the 
common user interface in terms of visual appearance, menu choices, program controls 
and toolbar capability. The idea was to distill the “signal from the noise” by starting from 
the user’s perspective and rapidly discussing, diagramming, and receiving feedback about 


various interface ideas and alternatives. As each iterative cycle was completed, the 
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interface became more refined, until all sides agreed upon a interim design. The final 
computer-based design was completed later as a byproduct of the component architecture 


prototype in the Visualization Phase. 


Because the application was to execute in a Microsoft Windows- 
based environment, it was important to the users that the user interface mimic and 
leverage Windows-based functions as much as possible. The main objective was an 
application that required a minimum amount of training for experienced Windows users 
and fulfilled all of the stated requirements. To achieve this, the collaborative team agreed 
that all program views and controls would be subordinate to, and represent only one item 
at a time within the confines of a master window view. This was needed to maximize 
user comprehension and minimize confusion. The particular views and controls are as 
follows: 

¢ Provide a Map View that enables the user to graphically select desired units 
and monitor the progress of facility comparisons that are spatially selected and 


calculated. 


¢ Provide a Selection Panel that enables the user to manually input Moving 
UIC/FacIDs and monitor the status of facility comparison calculations. 


¢ Implement button controls for accepting, starting, resetting and exiting the 
application. 


¢ Implement a menubar and toolbar that allows the user to manipulate the 
COTS products in accordance with user requirements. 


¢ Provide feedback to user in the form of a statusbar and a selected facility 
information view. 


(2) RAD-based. A second analysis prototype used a 
combination of 4GLs, Delphi 2.0, Visual Basic and MapBasic, to develop a rapid 
application to audit and validate the USARC business rules and data logic for deriving 
the ARU-DM parameters. This was accomplished by creating relational database links to 


a subset of the data sources — Army Reserve Units in Pennsylvania — in their existing 
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format, computing the decision parameters in accordance with the business rules, and 
outputting the results to a common data file format (e.g., Tab delimited). Additionally, a 
custom component was created and developed using the MapBasic spatial application 
development language; a programming language associated with interacting and 
automating the MapInfo application. Essentially, the MapBasic component functioned as 
a workflow script that spatially selected the data necessary to calculate several decision 
parameters within a 50 mile radius. This proved to the collaborative team that the most 
critical aspect of the prototyping process, using USARC LAN files without modification 
and coordinating various heterogeneous COTS products, could be controlled by a 
common user interface. By prototyping ARIES in this way, we were able to obtain clear 
guidance on how to meet and comply with USARC’s unique military requirements and 


business rules. 


d. ARIES Conceptualization Artifacts 


Before proceeding to the next phase, a formal walkthrough review was 
conducted with all involved to ensure all user requirements had been gathered and the 
concept properly characterized. It was important to avoid “gold plating” the requirements 
(e.g., providing more functionality and features then the user needs) by realistically 
examining the application’s proposed concept and the organizations existing IS/IT 
infrastructure. The resultant ARIES artifacts of this phase were determined to be the 


following and are detailed in Appendix C: 


¢ Conceptual Overview Diagram 

¢ ARIES Process-Flow Diagram. 

¢ USARC Business Rules Specifications (Appendix B). 
¢ User Interface Interim Layout. 


¢ User Interface Final Layout 
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3. Visualization Phase 


Once the business issues are characterized and the application requirements have 
been defined, the next step is to turn these abstract requirements into an actual tangible 
architecture. The Visualization Phase does this by providing the means to synthesize the 
user requirements into functional architectures and component interactions. Unlike 
current software development practices, C2C does not attempt to clarify the difference 
between requirements and design. The goal 1s to facilitate the construction of the needed 
application using the most appropriate architectures. 

The C2C architecture design involves multiple levels of abstraction. At one 
extreme is the reference or domain-specific software architecture (DSSA); the other is the 
application architecture itself. The DSSA represents the most general and abstracted 
form whereas the application architecture represents a specific design solution. In this 
phase, we categorize the two architectures as macro and micro. The macro-architecture 
illustrates the “what” and the micro-architecture illustrates the “how” of the application 
being designed. While the micro-architecture represents a specific technical solution and 
will change as the application is revised, the functional macro-architecture will remain 
the stable domain structure. Based on the requirements identified in the previous phase, 
the macro-architecture is partitioned into modules and the function(s) of each module are 
defined. The micro-architecture then entails the identification and selection of 
component software to fulfill theses functions. More simply, the micro-architecture key 
concems are functionality and performance; whereas the macro level concerns focus upon 
the management of complexity. 

One of the problems of identifying components is that future users of the 
application often view all of their processes as unique, and therefore desire custom-design 


components to handle this uniqueness. This is where a proper balance of “Buy -versus- 
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Build” strategy is needed by application developers; because some of the components 
may be available in the form of COTS products, and some components may have to be 
custom developed for the specific function they are required to implement. A good rule 
of thumb is “Build Business Value, Buy the Basics” (Knowles, 1997). Secondly, a 
component should be linked to an accepted standard and it must earn its way into the 
application architecture. The use of architectural styles such as these have several 


significant benefits: 


¢ Promotes design reuse within the problem domain. 
¢ Often leads to significant code reuse and shared implementations. 


¢ Enables better comprehension of the system’s organization if conventional 
structures are used. 


¢ Use of standardized styles supports interoperability. 


¢ Permits specialized analysis by constraining the design space. (Monroe, 1997, 
p. 45). 


We envision multiple passes through the Visualization Phase with the macro- 
architecture being solidified first, the U/I in subsequent passes, and finally the component 
architecture (micro). Refinement occurs at each iteration with the end user closely 


engaged in the resultant architecture. 
a. ARIES Macro-Architecture Stage 


Because SDSS was an innovative concept, there was no pre-existing 
reference architecture/DSSA upon which to base our design. With this in mind, the 
collaborative team utilized the artifacts from the previous phase and the BIA model to 


design a macro-architecture (Figure 3-6): 
¢ Point of Access (POA) Module - the prototyped U/I 


¢ Application Module - includes the ARIES Business rules and processes to 
capture the ARU-DM decision parameters and transfer them to the DSS. 


Sil 


¢ Technical Module(s) - includes the capabilities to display maps, spatially 
select data and provide decision support. 


¢ Information Module - includes the requisite data and business rules to support 
the mapping, decision parameter calculation, and decision support functions in 
the form of a Data Container. 





Figure 3-6. ARIES Baseline Infrastructure Archetype (BIA) Model. 


Because the movement of data between USARC legacy data sources and 
SDSS modules has the largest data flows, the development team implemented a container 
approach to manage all data flows within the context of the macro-architecture (Figure 3- 
7). The Data Container represents an abstracted data repository that contains all the meta- 
data, source data and COTS support data necessary to the relocation decision, and 


provides a means for ARIES to be portable for mobile users and to operate independently 
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from the USARC LAN for networked users. Source data is migrated to a separate 


database structure (data migration warehouse — DataDepot) for the following reasons: 


¢ Provide an accurate, centralized, and high quality —- data repository for 
calculating decision parameters. 


¢ Principle of minimality - only use whatever data is required to support reserve 
unit site selection. 
A 


¢ Accelerate data exchange between modules by using the native DBMS format 
of the USARC infrastructure. 
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Figure 3-7. ARIES Macro-Architecture Diagram 


b. ARIES Micro-Architecture Stage 


After considering a number of candidates and conducting an infrastructure 
review; the development team identified the primary technologies that fit the 
organizational objectives. with which to populate the macro-architecture (Table IIf). The 
information within the Data Container component represents the migrated USARC 
source data necessary to support the relocation decision analysis (DataDepot); the 


MapInfo data files necessary to support the display of maps and geocoded information; 


and the ARU-DM master templates to support the importation of computed decision 
parameters. 
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Table II. Macro and Micro Architecture Comparison Chart. 


Interoperability between components can be achieved by a variety of 
means, but it must be delineated in the architectural framework and applied consistently 
throughout the application. In the case of ARIES, many various communication 
protocols had to be used to ensure proper component iteration. For example, because the 
LDW application was originally designed for a 16-bit Windows environment, it was 
incapable of being controlled via established distributed computing standards (e.g., OLE). 
Therefore, the development team used intrinsic Windows Application Programming 
Interface (API) routines to manipulate the LDW window displays and the Visual Basic 
SendKeys Function to process macro-scripts. In short, the ARIES U/I controls LDW by 


simulating a user’s input. 
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es ARIES Domain Prototype 


Although each of the technologies brought strengths that USARC wanted 
to take advantage of, integration of the components into a coherent process that could be 
controlled from a single point soon became a formidable challenge. The developers were 
faced with the difficulty of minimizing the coupling and data transfer between the major 
components in order to maximize application performance. The first step — was for the 
development team to fully understand all of the components — including their design 
intentions, capabilities, strengths, weaknesses and external communication protocols. 
The second step — was to partition the U/I views of the analysis prototype into smaller 
segments and put the riskiest parts at the top of the prototype list, rather than letting them 
slip to the end. This “Piece-of-the-Pie” or subset approach, allowed the developers to 
bind each U/I view in turn to the applicable component (Table IV). 

By using RAD prototyping, the development team was able to build the 
interface quickly and easily using a visual development methodology (VDM), and then 
using component-based development, to link the U/I to existing data sources, 
infrastructure and components to ensure connectivity. Later in the Implementation Phase 
the team would place the appropriate code for business rules and data manipulation 
behind the approved user interface. In this manner, the abstract interface encapsulated, or 
hid, the actual system implementation from the end-users. The decision-maker can only 


view and access the system by way of this single point interface. 
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Table IV. ARIES User Interface/Micro-Architecture Component Binding. 












d. ARIES Visualization Artifacts 


Before proceeding to the implementation phase, another formal 
walkthrough review was conducted with all involved to ensure that the proposed 
procedural flows, component architectures, and U/I prototype were practical, close to 
what the user expected, and adhered to specified standards. Figure 3-8 illustrates the final 


approved component framework solution. 
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Figure 3-8. ARTES SDSS Component Framework Solution. 


56 


4. Implementation Phase 


At this phase in the C2C process, the component architectures and user interface 
prototyped in the Visualization Phase are translated into source code in 3GL or 4GL 
syntax. If an RDBMS 1s involved, the database schema will generated and integrated 
with the final application. The purpose of the coding is to translate the detailed 
architecture design into computer language suitable for the designated operating 
environment. 

Prior to this stage the development team “must first agree on the processes and 
methodologies it intends to follow, and it must decide which of those processes are going 
to be followed religiously -- and which ones will be honored in spirit, but perhaps not to 
the letter of the law’ (Yourdon, 1997). Once this has been decided, the tools and 


technology can be chosen — or rejected — accordingly. 
a. ARIES Development Methods, Techniques, and Strategies Stage 


Once the application has been designed in the form of interacting 
components, it becomes very easy to add new ones and scale up the functionality of the 
system or adapt the system to meet a design constraint. This was the case in ARIES for 
transferring the computed decision parameters to the decision support system. Because 
the LDW DSS is a 16-bit Windows application, it was incapable of reading Microsoft 
Access database files without a custom modification by LDW’s development team. The 
solution was to convert the Access data table to a format that LDW could import reliably. 
Component testing of the LDW DSS indicated that a Tab-Delimited format was the most 
suitable and that by using the Microsoft Excel spreadsheet component available in 
USARC’s infrastructure software suite, the information could be converted and imported 


quite easily using OLE communication protocols. 
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Another advantage of the approved component framework, was that once 


all the required components and interfaces had been specified, many of the coding 


activities could be performed in parallel as long as the input data necessary for the 


component was available. 


Once the allocations of system requirements to...software components has 
been made, parallel...software definition, design, and implementation 
activities are initiated. During these parallel efforts, the...development 
team must continuously cooperate and communicate to ensure that their 
implementations are compatible. This continued interaction is critical to 
the successful integration of the...software components. (USAF-STSC, 
oa 0) 


b. ARIES Coding Stage 


The ARIES U/I and application was coded using the Visual Basic for 


Applications (VBA) language and standard structured programming techniques. Only 


one form was created during the Domain Prototyping phase which contains all the VBA 


objects and the integrated MapInfo object of the ARIES U/I. The rest of the partially- 


compiled application is comprised of several VBA-coded files and one MapBasic 


program (Appendix D): 


SUBMAIN.BAS - Initializes the ARIES U/I; Loads and connects COTS 
components to U/I; Displays the U/I. 


UserInterface.FRM - Contains all procedures, business rules, and logic for 
controlling the ARIES U/L. 


PublicDeclarations.BAS — A library module that initializes all public variables 
and constants; Contains the variables that represent the SQL business rules for 
calculating the ARU-DM decision parameters. 


Library.BAS - A library module that contains all the procedures called by 
other procedures more than one time. 


OLE Library.BAS - A library module that contains all the procedures 
supporting OLE communications between COTS components. 


OLE Callback.CLS - An object class description necessary for communicating 
with the integrated MapInfo component. 
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¢ MapBasic.BAS - A library module that initializes all public variables and 
constants for communicating with the integrated mapping component. 


¢ ARIESArch - A MapBasic program that spatially selects the desired data 


within 50 miles of the specified location and locates the closest Army Reserve 
support facilities. 


Code evaluation occurs during and upon completion of coding. It ensures 
that coding techniques are acceptable and that standards have been followed during the 
coding process. The evaluation was conducted by the development team and NPS 
advisors, using peer-review and informal walk-throughs in order to verify the code 


against the design, and to ensure compliance. 
Ge ARIES SDSS Application 


The gain in performance of this spatially enabled DSS over its manual 
counterpart is formidable. A process that previously required weeks, can now be 
completed in minutes. The SDSS DSSA is very flexible and offers numerous ways of 
eliciting preferences and displaying results. The structure is adaptable enough that it can 
be easily expanded to include additional decision parameters, criteria, and improved 
decision models. 

Given the large number of components that must be centrally controlled 
by the U/I, and the intense database activity involved in calculating decision parameters, 
a local installation of the ARIES application at USARC Headquarters was recommended. 
The development team believed it was critical to perform this type of testing at the actual 
client site in order to best measure the application’s performance in an operating 
environment that could not be simulated at NPS. Since this was economically infeasible, 
the application was rigorously tested on the provided laptop computer, and the burden of 


network “beta testing” of ARIES was shifted to the USARC staff. 
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D. SUMMARY 


Our experience in using C2C to help USARC develop the prototype and test the 
SDSS concept, indicates that this approach can have a major impact on the way users and 
developers collaborate on producing functional software. C2C’s structural approach and 
use of component based development techniques to incrementally build and deliver 
mission-critical applications, formalizes a process that was, until recently, overly 
complex and unwieldy. 

The C2C process puts an early emphasis on addressing a concept’s high-risk areas 
by rapidly prototyping a proof-of-concept version of the intended system that defines its 
specific component architecture. It does not assume a fixed set of user requirements at 
the concept inception, but allows for iterative refinement of the requirements as the 
project evolves. Changes are expected and accommodated. The main focus still remains 
the final software product and its quality, as measured by the degree to which it satisfies 
the user’s expectations. 

As component-based development becomes more widespread and focuses on 
architecture, the complexity of the distributed operating environment should wane. Until 
that occurs, component-based systems built by non-programmers will probably continue 
to be interconnected in an unstable “hodge-podge” fashion. The best way to improve the 
integration of these systems is to adopt an enterprise-wide, integrated architectural 
strategy that incorporates standards that act to limit the inherent complexity faced by 
users and developers. In this sense C2C acts as a technological “gap filler” between 
baseline infrastructure and target applications. 

As with any new software development process and modeling methodology, 
nothing works exactly right the first time out. The USARC-NPS innovative collaboration 


was no different. What appears to occur smoothly throughout the development of the 
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ARIES SDSS application, in retrospect was actually disjointed and haphazard as USARC 
and NPS personnel underwent a “learning experience” about merging component-based 
technologies with architectural thoughts and ideas. These “lessons-learned” are what the 


next chapter is devoted to exploring in detail. 
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IV. LESSONS LEARNED. 
“There is a point at which methods devour themselves.” 
Frantz Fanon, Black Skins, White Masks, 1952. 
“A tool knows exactly how it is meant to be handled, while the user of the tool can 
only have an approximate idea.” 


Milan Kundera, 1978. 


“Reality is the murder of a beautiful theory by a gang of ugly facts.” 
Robert L. Glass. 


“The only thing new in the world is the history you have not learned.” 
President Harry S. Truman 


A. OVERVIEW. 


This Chapter examines some of the most critical lessons that the development 
team learned while constructing the ARIES application. It is by no means inclusive of all 
the lessons learned during the project, but rather a representative sample of the lessons 
related to component-based development. Each chapter section is presented in 
categorical form, beginning with users and analysis; application development; rapid 
prototyping, and component-based development. Each of the pertinent lessons related to 


a particular section is stated first and then discussed at length. 


B. CONCEPTUAL ANALYSIS AND THE USERS. 


¢ Because of software development’s inherent malleability, it is difficult to 
anticipate which requirements will be implemented easily and which will 
decimate the project. 


Deciding what to build and what not to build is the age old dilemma that faces all 
developers. Experience has proven that software requirements are the biggest 
impediment to properly engineering complex systems. Conventional as well as state-of- 


the-art software development practices have failed to make appreciable headway against 


persistent and pervasive problems with requirements management (DON-NRL, 1996, p. 
1). Beyond this need for discipline, requirements are intrinsically hard to define well. In 
an attempt to better manage requirements analysis, the development team countered with 
the Conceptualization Phase of the C2C Heuristic. By devoting crucial time and energy 
at the outset, we hoped to capture, structure, and contain the sheer essence of the project. 
This could not occur without an equal give-and-take on the part of the intended users. 
Through the formation of a collaborative effort, whereby the group built a little and 
prototyped a lot, a productive synergy yielded stable requirements from which to design 
architectures and model the problem domain. The users specify the “what” of the 
problem and the developers focus on the “how” of the solution. This iteratively and 
multiplicatively leverages the users’ business knowledge in concert with the technical 
acumen of the developers. Using prototyping as the practical solution The cognitive 
layers and the feedback cycle of the C2C structure acts to progressively guide the 
collaborative ensemble en masse from high levels of abstraction to a specialized solution 
space. 

In the case of ARIES, the characterization stage and U/I prototypes were the most 
instrumental in building the application correctly the first time instead of enduring 
endless cycles of change management. The developers were able to understand exactly 
what the SDSS needed to perform, were able to communicate side issues and 
discrepancies in the language of the users, and used an architectural focus to provide a 


means for controlling the production of the final application (DON-NRL, 1996, p. 6). 


e The developer cannot understand the business rules and processes well 
enough. 


Most application generation languages do a good job effectively designing the 
user interface and providing the underlying support code to connect the U/I to the 


pertinent database(s). But it is the business rules and data processing logic that are the 
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heart and soul of a successful application and are the most difficult to automate. It was 
this understanding of the rules to which the NPS development team devoted a majority of 
its analysis efforts. By focusing early in the Conceptualization Phase on thoroughly 
comprehending and characterizing the exact rules and processes used by the USARC 
decision-makers, the team avoided extensive and unnecessary rework later in the 
implementation stages. Using process roadmaps and documented business rules, ARIES 
development became a straightforward exercise in prototyping the U/I, identifying the 
required SQL database operations, linking the Rules to the U/I, and linking the rules to 
the SQL. 


¢ Keep the user engaged in the collaborative process. 


ARIES’s intended users failed to adequately specify top level system 
requirements as quantitatively as possible, and developers failed to better elicit them. 
Too many trade-offs and design decisions were left to the developer. Conflict at 
structured walk-throughs occurred between the developer’s view of the design and the 
users’ unarticulated view. Large amounts of development time were lost in several C2C 
stages because of these discrepancies. 

Collaboratively prototyping in one room or meeting is difficult enough under the 
best conditions, but in the case of ARIES the development team resided at NPS in 
Monterey, California, while a majority of the time the users were at USARC headquarters 
in Atlanta, Georgia. Attempts to regulate the collaboration using email proved 
ineffective. A second problem in this arena involved the USARC LAN network software 
upgrade from Windows 3.1 to Windows NT which was not scheduled for completion 
until after product delivery. As a result, incremental prototype builds could only be 
alpha-tested by USARC decision-makers during the monthly progress meetings. Instead 


of stabilizing the design, the opposite outcome occurred as the prototype demonstrations 
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elicited user suggestions not anticipated by the developers. For example, the user wanted 
to be able to select the facilities for site relocation graphically using the mapping 
component. The development team mistakenly assumed that the map view should label 
the selectable nodes with its corresponding facility identifier (FacID). The Domain 
Prototype was built around this misconception, only to discover at the prototype 
demonstration that users had trouble “drilling down” through the map layers of the map 
view because they were in the habit of selecting facilities by the closest cities and towns 


rather than by FacID. 
¢ Identify who is responsible for software maintenance prior to development. 


One the biggest mistakes that can occur with regard to software development is to 
delay the selection of the software maintenance organization until after the development 
of the software application and data structure has begun. The developer may have 
deployed a superior application, but if is incompatible with existing infrastructures or 
unsupportable by the recipient organization’s IS support staff, then the program probably 
will not be used and likely “wither on the vine” from lack of support. The solution is to 
select the provider of the technical support prior to the commencement of application 


development. The IS support can be provided in one of two forms: 


¢ Externally by the software development team/organization, or 


¢ In-house or organically (1.e., by an organization of the Army). 


If an organic organization is selected, then the software tools and applications 
used for development must be provided to, and agreed upon, by the maintenance 
organization. In the case of ARIES, the initial Analysis Prototypes were developed using 
Borland’s Delphi 2.0 fourth generation language. Although the lead developer had 
experience with Delphi client-server environments, the USARC IS Staff were 


inexperienced and unfamiliar with the Delphi programming environment. Therefore 
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Delphi was summarily vetoed by the USARC IS Staff and two additional requirements 


were imposed in the second round of the Conceptualization Phase: 


¢ Both the ARIES Application and Administer must be developed in Microsoft 
Visual Basic 4.0. 


¢ All Visual Basic and MapBasic source code must be provided separately to 
USARC in an uncompiled form. 


This resulted in a six week loss of development time while the development team 
attended several professional Visual Basic workshops and redesigned the Analysis 


Prototype to comply with these new requirements. 


C. ARIES APPLICATION DEVELOPMENT LESSONS. 


¢ Small development teams are best. 


It is a fundamentally simple principle that if you want to limit the number of 
defects in a project, then limit the number of developers involved in producing the 
project. Good people produce good software (Yourdon, 1996, p. 28). The results from 
using a small team for the ARIES SDSS were better management, less coordination, and 
improved communication between both team members and users. By using a design 
heuristic, automated tools, and architectural structure, the development team was able to 
remain small in size (3-8 members), and reducing the amount of code to be written and 
tested. Small teams using modern tools, techniques, and user experience can achieve 


high levels of productivity. 


¢ Spatial selection, when properly implemented, can substantially reduce 
decision model parameter calculation response times. 


During the Visualization Phase, the domain prototype of the ARIES SDSS 
performed much more slowly than the collaborative team had anticipated. Some of the 


problems occurred because of overhead from complex SQL queries between the U/I and 
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the RDBMS. For example, calculating the available MOS’s from the closing Army 


Reserve units requires the following logic: 






Determine all the individuals assigned to Closing Units who live within 
50 miles of the Proposed Site having MOS’s matching a prospective 
Moving Unit’s requirement for a particular MOS. 






The example took nearly an hour to execute on a Pentium 120 MHz computer, 
regardless of the population density of the location. Even with performance tuning 
execution time was still about 40 minutes on average to perform the query. The solution 
was to utilize the specialized geographic processing capability of the MapInfo component 
to spatially select only the database records within the 50 mile geographic boundary of 
the proposed site. This required obtaining a waiver from USARC to allow the 
development team to geocode the Army Reserve Unit personnel database (G18CWE) 
using the MARS Engine, to migrate the database, and to spatially enhance it and two 
others for geoquerying by ARIES. The performance gain from this technique was on the 


order of five to seven times faster (Figure 5-1). 


¢ Avoid design error propagation by adhering to a philosophy of “Daily Build 
and Snioke Test.” 


When discussing software development in terms of incremental prototypes or 
iterative “builds,” one thinks of monthly or weekly milestones. This correlates to the 
business world and our daily lives as a “normal” production pattern. The trouble lies in 
the rapid changes that prototyping perpetuates; factor in concurrent development by team 
members, and you have a recipe for disaster when project assembly occurs in one month 


(e.g., “let’s put it together and see what works’). 
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Figure 4-1. Spatial Solution Diagram. 


Component-based development allows the developer to follow a different 
approach — the Daily Build and Smoke Test. This process can be used effectively for 
projects of any size or complexity and consists of developers, on a daily basis 
assembling, compiling, linking, building, etc., all the project components and code 
modules into a deliverable application and then testing to verify its basic operations. The 
team is not allowed to continue coding until the current “build” passes satisfactorily, and 
component failures can be attributed as the responsibility of the component creator. In 


this manner the developers start every day with a product that functions correctly, and 
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ensures that any defects that are present were induced within the last 24 hours. It is far 
easier to retrace an individual’s one day effort, than a team’s monthly effort. This 
prevents developers from unwittingly developing incompatible components and 
corrupting the overall design. 

Why is this so important? The process pays for itself by reducing the time- 
consuming development risks of low quality, integration failure, and poor progress 
visibility (McConnell, 1996, p. 405). Not only does the developer always have a 
deployable application, but the users, project managers, and other team members always 
have a daily status of what is complete and what needs to be added. Any problems which 
arise tend to be relatively small in nature and can be dealt with accordingly, rather than 
shifting into “crisis mode” to rework code following a monthly or quarterly project build. 
“The daily build is the heartbeat of the project. It’s how you know you’re alive” 


(McCarthy, 1995). 


¢ A strong, stable, and well-defined architecture prevents degeneration of 
design. 


It can be extremely difficult to maintain an application architecture as the 
development process unfolds. Over time, performance and delivery pressures can 
combine to blur the architectural design, resulting in unwanted degeneration of the 
structure at all levels. A “good enough” architecture may be the result of attempting to 
accommodate a given COTS component structure, but a standards-based architecture is 
critical to the development process. Quality architecture is more likely to influence a 
successful project than a given set of components. Component technology and good 
architecture need to be intrinsically related, otherwise architectural mismatch can occur 
(Garlan et. al., 1995, p. 18). Rapid prototyping can accelerate this mismatch unless a 
Strict development discipline is enforced by the developers to rework and revisit all 


affected components after each prototyping cycle ends and during component integration. 
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A well-thought out architectural solution can be effectively and efficiently implemented 


in almost any language, environment, and infrastructure. 


D. RAPID PROTOTYPING LESSONS. 


¢ Decide up front whether the prototype ts to be a “throwaway” or a full 
production system. 


A throwaway prototype or scaled-down model is used for feasibility exploration 
and proof-of-concept studies in which user requirements are incomplete and the system 
approach is uncertain. However, if a prototype is being constructed using known 
requirements, and only minor uncertainties remain regarding the system approach, then 
an evolutionary prototype can be built, in which some or all of the prototype is retained 
(Gordon and Bieman, 1995, pp. 85-86). Usually the throwaway is built first, with the 
developer proceeding quite rapidly as the user requirements are defined and the system 
architecture is confirmed. The downside is that, in its limited, scaled-down form, the 
prototype is usually incapable of being deployed as a full production system because so 
many shortcuts have been taken to illustrate whether something eauld be done. When the 
design specifications are complete, then it can be rewritten to fulfill a more flexible, 
scaleable, and extensible form. 

Originally ARIES was budgeted for a two-phased development: a stand-alone 
throwaway prototype, and a full production network-centric version. The network model 
was to be a three-tiered, fully object-oriented client-server application that would be 
Windows NT enhanced to maximize decision parameter calculation using remote OLE 
automation. Difficulties with this scheduled arrangement occurred when project funding 
was reprogrammed halfway through the C2C development cycle. This required a 
collaborative reorganization of the ARIES SDSS to enable the application to execute in 


the network environment without being optimized for it. 
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Conventional wisdom counsels that whether ““[you] plan to throw one away; you 
will anyway,” (Brooks, 1987) but often, in the interests of time and expense, a prototype 
will be retained in some form from the start. As developers we are not advocating one 
particular method over another, only that in the best interests of the collaborative design 


team, it is imperative to decide from the outset which one it will be. 


¢ The collaborative nature of prototyping requires more of the user’s time 
than he plans for. 


The challenge of managing a prototyping effort can be much more complicated 
than managing conventional software development. The difference stems from the heavy 
emphasis placed on providing the users what they want and need. This leads to modeling 
processes in new ways, which in turn requires near constant feedback to prevent wasted 
effort and trivial pursuits of unintended features. Sometimes this constitutes more 
feedback than the user 1s capable of providing. 

Because USARC could only review U/I prototype once a month during their trips 
to NPS, user feedback tended to come very late in the prototyping cycle. This latency 
meant constructive feedback came at a time when incorporating the changes incurred 
significantly higher costs. Changes in the user interface prototype at the end of each 
Visualization Phase walk-through twice resulted in an additional four weeks of design, 


testing, and unit integration. 


© Quick visual results encourages the user(s) to suddenly see possibilities 
where before they had only seen barriers. 


A striking phenomenon about visually-oriented prototypes 1s the uncanny ability 
to elicit Archimede’s “Eureka!” reactions from the pool of intended users. The potential 
end-user goes from a position of “I'll know it when I see it,” to “if you can do that, then 
surely you should be able to do this?” It provides a sense of empowerment to the user 


and allows him to shape and envision the final system., In practice however, this can only 
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occur after he has gained some experience from the system proposed by the developers 
(Gordon and Bieman, 1995, p. 86). As with every new unprecedented capability, there 
comes a dark side. The user’s hunger for more and more functionality can become 
insatiable without some outside restraint imposed by the development team. This may 
result in uncontrolled “requirements creep.” Because the prototype can so effectively and 
easily mirror the final system, the intended user(s) may have little sense of the relative 
costs and the diminishing marginal returns of adding functionality beyond the scope of 
the initial concept. In short, “perfection” becomes the enemy of “good-enough.” 

In this sense it is the duty of the developers to guide and assist the users in 
prototyping the final system around a reasonable bandwidth of the users’ stated goals. 
Their experience and objectivity are critical in knowing when to stop prototyping and 
Start coding. Otherwise excessive gold plating may result in a great system that never 


gets built. 
¢ Using COTS products does not eliminate software maintenance. 


On the contrary, because the origin of installed components 1s external to the 
developers, software maintenance plays an even larger role than it does 1n conventional 
software product development. If a component is modified and the vendor releases a 
bigger and better version, as they always do, who then is responsible: for the care and 
feeding of the application? The vendor? The development team? The recipient 
organization? Secondly, if the developers use the product “as-is” and the vendor updates 
other components in the application architecture, who bears the brunt of the burden to 
ensure component compatibility? Each change in the implemented design requires a new 
version of the system to maintain the technical integrity of the application. Otherwise the 
incompatibilities become cumulative and propagate instability throughout the component 


architecture. 


This was the case with LDW, the ARIES DSS component. As the other 
components received major product upgrades, including the operating system, the LDW 
DSS remained unchanged. Because of the unwillingness of the LDW vendor to migrate 
LDW to a 32-bit application, the burden of maintaining the ARIES product over the next 
18 months will become even more difficult without radical work-arounds to make a 16- 
bit program backwards compatible within a 32-bit component framework. As a result, 
- the viability of ARIES will become less and less certain as USARC upgrades its 
infrastructure. 

In summary, you cannot simply build a component-based application and then 
forget about it. The more easily such an application is built, the more critical the 


maintenance effort needed over the application’s lifecycle. 


E. COMPONENT-BASED COMPUTING LESSONS. 


¢ Building custom components is really, really, hard. 


Do not be fooled by the component evangelists. It is very difficult and time 
consuming to build even simple components that work and communicate well with other 
components and applications let alone complex ones. In today’s dynamically complex 
event-based development environments, a developer must be able to anticipate every 
possible use and interaction a component could be expected to fulfill and undergo 
respectively. Many component building and application software packages have been 
created to address these issues, but testing components in infinitely diverse combinations 
is a Herculean undertaking. Further, using contemporary methodologies does not insure 
success; many dismally poor components have been produced using modern tools and 
techniques. High quality and reliability comes at a premium cost. It is far easier to buy 
and modify a well-designed COTS product than to develop and validate a custom built 


one. The challenge in doing this well is to know and understand thoroughly the available 
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off the shelf commercial products, because many of the problems encountered during 


implementation simply cannot be determined before integration begins. 


¢ The learning curve for mastering component-based application development 
1s Steep. 


It is important that, prior to using a particular component or fourth generation 
development language for developing a component-oriented application, the developers 
are comfortable and familiar with the product. One person cannot be expected to 
instantly master several different components well enough to be an effective and efficient 
developer while at the same time attempting to prototype the system. “Just in time 


learning” is insufficient to guarantee a stable design and is often a blueprint for disaster. 


¢ Component communication protocols are the weakest link in_ the 
development chain. 


Some components are capable of using open or de facto standards (e.g., OLE), 
some must utilize proprietary communication protocols (e.g., DDE), and others cannot 
operate with various components at all. In order to effectively implement the ARIES 
component framework, the developers were forced to use a combination of all three 
methods to achieve the desired functionality. This approach was not without its 
drawbacks, for the less ‘open’ the protocol, the less functional the implementation. For 
example, because LDW is incapable of importing most current file formats, Microsoft 
Excel had to be used to save the resultant scenario’s decision parameter matrix in a tab- 
delimited format that LDW could process; Visual Basic could not do that easily. This 
introduced another component in the architecture whose only function was to serve as a 
file transfer agent, a function which is not the component’s strongest suit. 

The MapInfo component, on the other hand, fully embraces the de facto OLE 
standard and effectively documents the component’s interconnections. As a result, 


approximately ninety percent of the functionality within the MapInfo application could be 
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done within an integrated map window. To similarly manipulate the LDW application, 
the ARIES U/I hypnotized it into executing user-simulated keyboard commands using 
Microsoft Windows API routines and macro scripts. Essentially the ARIES U/I tricked 
the program into thinking a user was present when he was not. This technique is strictly 
limited in that only about 20% of LDW’s capability could be controlled in this way by 


ARIES. 


¢ Use of Commercial-Off-The-Shelf (COTS) components can result in “dead 
code” solutions. 


In some cases the use of an appropriate or inappropriate component can result in 
some or most of the component’s functionality not being used (dead code). Essentially a 
large component with many capabilities may only be needed to provide a single function 
or a small subset of the original functionality. An example of this is the use of Microsoft 
Excel, a large and complex application for spreadsheet manipulations, which is used 
exclusively in ARIES to load the decision parameter matrix and save it in a different 
format. Similarly, MapInfo is used only for geoquerying and facility selection, in spite of 
its extensive thematic mapping capability. The resources that the mapping component 
consumes (e.g., 4 MB of random-access memory) are lost to other applications when only 


15% of the component is used. 
¢ COTS components are not all “open” standard compliant. 


This was probably the hardest lesson the ARIES development team had to 
contend with, and is a major issue for anyone interested in pursuing component-based 
development as a solution provider. In the past components or small, specialized 16-bit 
applications were designed and built using proprietary standards combined with 
programmers’ idiosyncratic methods to achieve a certain level of performance. As 


operating systems have matured and become more sophisticated, components and 
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programs are able to take advantage of object libraries and infrastructure to achieve 
functionality. Yet openness is still measured by proprietary designs and consumer 
acceptance. Providing a uniformly understandable means for accomplishing tasks is key 
to limiting communication chaos and reducing risk within the application’s architecture. 
Without standardization and architecture, the process of integrating unique application 
components becomes extraordinarily complex. Since no single vendor has 
accommodated the entire range of infrastructure management needs, de facto standards 
have emerged. 

This is where the real trouble arises, for third-party components and updates from 
vendors are not exactly ‘plug and play’, and frequently have a tendency to be falsely 
documented. The integration of various component data formats and communication 
protocols can be very complex, and subtle “gotchas” within a component may render its 
role in the component framework null and void. Initially the development team tried to 
grab too much “off the shelf” and hastily put it all together during the prototyping stages. 
This yielded mixed results — mostly bad. The team was so enamored by the prospect of 
a buy-and-integrate strategy that it failed to realize that some COTS products can only 
interact in accordance with its own set of standards, architectures, and design. Not all 
COTS products are universally pliable. They may require in depth analysis of their 
intended operating environments and structure. 

As an example, LDW is capable of screen capturing its various graphic analysis 
displays to the clipboard or a graphic file. The undocumented difficulty is that the 
“clipboard” was implemented by the programmer in C++ without using Windows native 
API routines. Additionally, the graphic file is the 16-bit Windows meta-file standard 
(WMF) that is supported by only a handful of programs (e.g., Microsoft PowerPoint). 


Therefore, the only method available to allow the user to personalize the standard reports 
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feature of the ARIES U/I was to implement another large “dead-code” component, like 
PowerPoint, to once again act as a file transfer agent for graphic analysis editing. 

Another difficulty emerges when trying to integrate new versions of existing 
components within the application's architecture. The new version may have a different 
look-and-feel and require more memory, and/or previous data formats and protocols may 
no longer be supported. In any case, another C2C incremental cycle will need to be 
completed to ensure application compliance and functionality. 

The only way in which to make various disparate components operate together 
reliably is to adopt a strong single vendor infrastructure solution (Microsoft) and work 
within the confines and limitations inherent to the selected standards and architecture. 
Hopefully in the future, emerging software technologies will be developed and distributed 
as a new kind of component. A component that is functionally cohesive, based upon 
Open standards, small in terms of complexity, and therefore capable of operating in 


conjunction with all other possible components and software applications. (Figure 5-2). 


F. SUMMARY. 


It is becoming increasingly clear that software development, which relies heavily 
upon component-based architecture, requires modifications to the traditional development 
methodologies. Although some of the lessons derived from ARIES were recurring 
themes of software developments lessons of the past recast in component-based form, 
others were unique to the particular technologies and methods used within the structured 
C2C paradigm. In the final chapter, we summarize the lessons learned from this SDSS 
exercise, and project how these can be adapted to future component-based development 


applications. 
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V. CONCLUSIONS AND FUTURE RECOMMENDATIONS. 


“Institutionalizing organization-wide decision-making processes and an 
architecture is the key to all of our information system development efforts...and 
our primary measure of success is impact on the bottom line.” 

Chief Information Officer (GAO, 1994). 


“It is generally very difficult to keep up with a field that is economically 
profitable, and it is only natural to expect that many of the techniques described 
here will eventually be superseded by better ones.” 

Donald E. Knuth, The Art of Computer programming, 1973. 


“We build systems like the Wright brothers built airplanes — build the whole 
thing, push it offa cliff, let it crash, and start over again.” 
Professor R. M. Graham, Software Engineering, 1969. 


A. INTRODUCTION. 


This chapter synopses the underlying themes characterizing the development and 
implementation of the ARIES SDSS. It summarizes our experience with using the 
Concept-to-Code (C2C) design heuristic to construct software within the context of a new 
structured paradigm, and provides suggestions and insight into the ARIES Next 


Generation (NEXGEN) prototypes. 


B. LOOKING BACK. 


Reflection upon the ARIES SDSS implementation could be perceived in one of 
two ways: as “blind luck’’, a one-time-success story that by sheer happenstance delivered 
exactly what the user wanted with a development team that had no prior experience with 
the underlying development tools; or, in a more realistic light, as an application which 
provided a means to explore, justify, and demonstrate the validity of using component- 


based computing in conjunction with rapid application development techniques, to 
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quickly and accurately produce a scaleable, extensible, and useful decision support 
application. 

The C2C design heuristic employed for ARIES allowed the collaborative team to 
quickly conceive and sketch screens and displays, and then build the user interface up 
front in a short turnaround period. Defining how the components of the application 
architecture were to communicate with one another, drove how the intended functionality 
of the architecture was to be accomplished. The heuristic allowed the developers to 
“architect” the system into small components and put the high risk segments (e.g., 
primary functionality) at the head of the prototyping line, rather letting them slip to the 
end. It was important to build the most difficult components first and then add the “nice- 
to-haves” later on. C2C also greatly improved management oversight by allowing the 
application development process to be layered from a generic concept to specialized 
solution. 


In summary, the C2C process has resulted in a number of benefits: 


¢ Facilitated understanding of the development process by managers and 
programmers using a one-page graphical representation. 


¢ Provided concise, definable phases with clear entry and exit criteria and 
staged iterative development. 


¢ Fostered an atmosphere of continuous quality process improvement between 
users and developers. 


¢ Allowed small development teams to implement large scale, complex 
applications in short development cycles. 


¢ Provided clear communication of project status between the development 
team and management on a daily basis. 


The success of the ARIES SDSS could be considered surprising, but in reality it 
was no fluke. The C2C process, applied carefully, can lead to powerful applications 


within a surprisingly short period of time, months vis-a-vis years as in the case of ARIES. 
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Undoubtedly, C2C will continue to undergo experimental refinement and improvement, 
as it may very well become the mainstay of software application development. 

To date, the ARIES SDSS 1s effectively deployed on the USARC local area 
network, as well as USARC staff officers’ laptop computers. The results of the ARIES 
SDSS deployment have been very positive for both the NPS development team members 
and the USARC staff. The issues of timely and consistent response to site relocation 


questions appear to be more than adequately met by the ARIES SDSS prototype. 


C. LOOKING FORWARD. 


1. Current Technology Options. 


a. Infrastructure: A Component Update 


In the short time since the deployment of the ARIES SDSS prototype on 
the USARC LAN, several changes have occurred with its primary components. All of 
the COTS infrastructure components, with the exception of Logical Decisions for 
Windows, have had new versions released by their associated vendors. Each 
component’s functionality has been greatly enhanced and conforms to widely accepted 
client-server protocols. This includes the Visual Basic development language, which has 
been significantly upgraded to function exclusively within the component-based 
paradigm. Applications created in Visual Basic 5.0 are now fully compilable and the 
ODBC component has been integrated into the new JET SQL 3.5 RDBMS engine. If 
ARIES code were migrated unchanged to the new 4GL environment, the user could 


expect to see an approximate 20% increase in program execution time and a dramatic 
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increase in non-native data processing time. This would also greatly reduce the time 
required to build the data migration warehouse from USARC’s FoxPro 2.0 data sources. 
MapInfo and MapBasic have also been improved, however, the vendor has 
also created a separate integrated mapping component, called MapX, based on the 
Microsoft ActiveX standard. MapX allows developers to directly compile the desired 
mapping functionality with the prototyped application, thus eliminating the need for OLE 
communications between the two components. The integrated mapping features can now 
be “hardwired” directly into the ARIES U/I and would only need a fourth of the 


computer memory currently used by the MapInfo application. 
b. ARIES DSS Component Redesign: The Need for Innovation 


The current version of LDW in its 16-bit format, is still more than capable 
of providing the required functionality, but as USARC upgrades its IT infrastructure to 
take advantage of future technology, the ARIES DSS component in its unscalable form, 
will eventually fail to provide effective decision support. What is needed is a new 
scaleable and extensible 32-bit DSS component. Currently, there are no vendors 
marketing DSS software with all of the functionality of the 16-bit LDW application (e.g., 
automatic waiting, dynamic sensitivity, etc.) The difficult choice is to either wait for 
market conditions to change, or custom develop a similar DSS component with the 


following additional features: 
¢ Allow the decision model to be directly manipulated within an integrated 
window on the ARIES U/L. 


¢ Allow decision-makers to graphically add or delete new decision parameter 
nodes, as well as fully document how they are calculated. 


¢ Create a Report Manager that allows the user to drag-and-drop various 


decision model graphs into standard documents (e.g., Microsoft Word, 
RUIMIE etc.) 
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CG Migrate Decision Making to the Web 


In order to take advantage of USARC’s upgraded Windows NT operating 
system and the continued focus on network-centric infrastructure; the competent 
developer can use the Visual Basic 5.0 component creation tool to build a new ARIES 
component that separates the USARC business rules and decision parameter calculations 
from the user interface. By using ActiveX technology, the ARIES SDSS can truly be a 
three-tier client-server application. The rules and processes could be changed, updated, 
or added separately from the ARIES U/I while still in accordance with corresponding 
changes in the ARU-Decision Model. Development time can now be better spent 
elsewhere instead of redesigning the U/I every time a business rule or condition changes. 

The new Visual Basic development language also allows the developer to 
‘“web-enable” any application quickly and easily from within the 4GL environment. The 
ARIES U/I could now be rapidly prototyped within a common development environment 
by the collaborative team in less time, using a web browser (e.g., Netscape Navigator or 
Microsoft Explorer) and a point-and-click web page designer (e.g., Adobe PageMill or 
NetFusion). This would allow ARIES to use more of USARC’s stabilized infrastructure, 
reduce the amount of software maintenance support needed, and reduce the number of 


languages and development tools that the application developer must learn. 
a Future Technology Options. 


An important concern is how far the process of simplification of the user interface 
should go to provide easy access to spatial information without sacrificing necessary 
functionality. Prototyped software that enables site selection across space and time using 
a component-based infrastructure like the ARIES SDSS, has been created as one small 


step towards the continued development of spatial decision support systems. Thanks to 
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new component-based software tools, it is now possible to create compact, yet 
specialized web-based applications that allow inexperienced users to participate to a 
greater extent in solving local, spatially oriented problems as decision-makers rather than 
as programmers. This is all desirable as far as it goes, but without changes to other 
peripheral issues, the future capabilities of the ARIES NEXGEN can only advance so far. 
The USARC business processes related to site selection decisions are ripe for a 


concentrated reengineering effort that has the future in mind — Visioneering. 


a. Data Source Management 


The underlying data management philosophy of the NEXGEN SDSS is 
that the entire USARC network, local and remote sites, comprise a single, large virtual 
““Resources-to-Readiness” data migration warehouse. The decision-maker should be able 
to access any and every data source relating to site selection whether on an Army Reserve 
mainframe in Washington D.C., or a spatial data server on the local LAN; all from within 
the browser U/I. In today’s network-centric ecosystem, it makes good sense to use the 
web as an operating desktop since it is a logical interface that most users can quickly 
learn and understand. Essentially, the NEXGEN is a network user interface (NUI), 
whereby the user is able to seamlessly apply business rules and calculate decision 
parameters without having to have knowledge of where the data actually resides. 

The NUI will improve database processing by leveraging the flexibility of 
the web middleware to pull data simultaneously from all local and mainframe data stores 
using open standards. In short, web-based technologies act as a “data resolver” to 
connect decision-makers to information no matter where it is stored or how it is 


structured (Joch, 1997, p. 104D). 
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b. Decision-Maker Knowledge Management 


In order to adapt to the continuous turnover of military personnel at 
USARC headquarters, the NEXGEN SDSS needs to be able to interactively model and 
capture the corporate knowledge about various data sources, business rules, and ad-hoc 
queries residing in the minds of the decision-makers. When stored and replicated, this 
meta-data knowledge becomes a reusable resource that ensures a given decision analysis 
can be based on repeatable findings. In short, this means knowledge management 


through automation. 
ec Decision Parameter Derivation in Parallel 


Although new technologies and software are produced everyday, the 
appetite for higher application performance is never satiated. The sequential calculation 
of ARIES decision parameters using spatial selection was a superior solution for mobile 
decision-makers, but within the NT ecosystem, parallelism is an even better solution. 
The NT network supports this by near simultaneous launching of remote automated OLE 
server objects for decision parameter computations onto the network. In this scenario, 
the idle processors of any desktop computers attached to the network can be utilized to 
calculate all the decision parameters essentially in parallel. Depending on the amount of 
network traffic present, the entire decision parameter matrix could be hypothetically 
calculated in the same amount of time it now takes to complete just one complex decision 


parameter query. 


ae Future Scenario: The Final Episode. 


Users want to shape the technology that is implemented in_ their 
organization. They want to control its use and determine the effect it will 
have on their own work. They are rapidly understanding that their 
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effective use of technology coupled with a change in how they do business 
will determine their personal and organizational success. (Tapscott, 1993, 


p. 14) 

As component-based computing becomes more and more the norm for application 
development within civilian and military organizations, developing future IT decision 
Support systems may become a far easier and user-friendlier process. Just ask Colonel 


McMurdo about his ARGIS 21 system: 


1721 HRS: “Hey Jack! That ARGIS 21 product is your responsibility, right?” It 
was Brigadier General Mark Rutherford, Col. McMurdo’s immediate boss, on the phone. 

“Yes Sir,” the Colonel replied. 

“Well the Old Man just got a call about the BRAC situation on CNN. After that 
*stick-save’ at the hearing today, you’re stock 1s up 20 prestige points. As a matter of 
fact, you have a meeting with the Chairman and the other Four Stars in the Tank first 
thing tomorrow morming Seems they have big plans for ARGIS 21 concerning better 
force dispersion, limited over-the-horizon target selection, and real-time Joint logistics 
shipping status. You'd better bring that laptop of yours.” 

“I’m on it, Sir,” McMurdo responded, “and while I’m at it, I’d better give those 


people back at NPS a call. Looks like we’re going to be quite busy.” 
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APPENDIX A. ARIES SOURCE DATA FILE META-DATA. 


This appendix contains the meta-data that was documented for the ARIES SDSS 
prototype data source files. “ACROPOLIS” as used in this appendix refers to the file 
name of the ARIES data migration warehouse (DMW). 
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ARIES Data File Documentation Form 


| ARIES File Name: Location: — ../Aries/MapBasic/USARCData 
File Type: FoxPro 2.6 Size(MB): — .026 No. Records: 190 


Associated ARIES Tables: = Not in ACROPOLIS, Geocoded for use in MapInfo 


File Description: 


AMSA File contains information about the location of each AMSA station. It is used in determining the 
value for the distance to the nearest AMSA. 


Required Data Elements 


Data Key 
Name Description Type Format | Field 


ee | Facility Wdeaication Code a 

ee ie | Reelin tile ro 
ise 
fac_city City Facility is located in 
fac_state State Facility is located in 
a 
Lae 


Glorolorse 


Extract Queries: 


NONE 





oA 


THISPAGE LEPMINTEN TIONAL PE YWBBANK 


22 


ARIES Data File Documentation Form 





ARIES File Name: COMMAND PLAN Location: ACROPOLIS 


File Type: FoxPro 2.6 Size(MB): No. Records: 9,897 


Associated ARIES Tables) CMDPLAN 


File Description: 


Command Plan is the file that contains information about each unit in the Army Reserve. It is used to 
cross reference FAC ID's with UIC's. It is also used to screen for Valid UIC's with in the next 13 months. 


Required Data Elements 


Data Key 
oe Description Type Format Field 


| UIC ——s&Ysnit Identification.Code | Char |  ——s|_syes._— 
oo Facility Identification Code _Char |) io 
EDATE Effective Date of Transaction | Char | | 


Extract Queries: 

CMDPLAN 

SELECT DISTINCT UIC, FACID AS FAC _ID, 
EDATE 

FROM COMMANDPLAN 

WHERE (FACID < "N/A") AND (FACID <— 
"TBD") AND (FACID < "") AND 
(LEN(FACID) > 2) AND 
((LEFT(EDATE,4) = '1998' AND 
MID(EDATE,5,2) <= '02') OR 
(LEFT(EDATE,4) <='1997')) 

ORDER BY UIC, EDATE DESC 

INTO  CMDPLAN 

INDEX ON UIC as UIC 

Note: Application automatically adjusts the 
dates to obtain a 13 month window. 
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ARIES Data File Documentation Form 


ARIES File Name: COMPLEX Location: ACROPOLIS 
File Type: FoxPro 2.6 Size(MB): = 2.1 No. Records: P57 


Associated ARIES Tables: COMPLEX _ 


File Description: 


The Complex File is used to determine if the facility is owned by or leased to the government and the 
number of weekends each facility is used during a month. 


Required Data Elements 


Data Key 
Name Description Type Format | Field 


FAC ID Facility Identification Code yes 
| GOVT OWN Facility ownership status 
RS WKND PM Reserve Station weekend usage per mo. 


Extract Queries: 

COMPLEX _ 

SELECT FAC_ID, GOVT_OWN AS 
FAC_OWNED, RS_WKND_ PM AS 
FAC _WKND_USED 

FROM COMPLEX 

WHERE LEN(FAC_ID) = 5 

INTO COMPLEX_ 

INDEX ON FAC _ID as FACID, Primary, Unique 
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ARIES Data File Documentation Form 


ARIES File Name: ECS Location: ...\MapBasic\USARCData\ 
File Type: FoxPro 2.6 Size(MB): 004 No. Records: 30 


Associated ARIES Tables: Not in ACROPOLIS, Geocoded for use in MapInfo 


File Description: 


ECS File contains information about the location of each Equipment Center. It is used in determining the 
distance to the nearest ECS. 


Required Data Elements 


Data Key 
Name Description Type Format {| Field 


fac_id Facility Identification Code eChare | 
fac title Facility Title 
fac_street Street Address of Facility 


fac_city City Facility ts located in 
fac_ state State Facility is located in 


fac Zip Zip Code of the Facility 
bye | SSCS 


=a =i 
m | © ;H 
ct at =t it 


Extract Queries: 


NONE 
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ARIES Data File Documentation Form 


ARIES File Name: FINANCE Location: ACROPOLIS 
Pile Type: FoxPro 2.6 Size(MB): 83.4 No. Records: 311,793 


Associated ARIES Tables: FINANCE_, FINANCE QTR 








File Description: 
Finance is the file that contains pay information for the previous eight quarters about every Reservist. It is 
used to obtain information about Drill Attendance for a given Facility. 


Data Key 
Name Description Type Format | Field 


[CURR UIC | Current Unit Wentification Code ‘| Char | ‘| No 
Unit Training Attendance for I* Qtr this FY | Number | = |_—No_—'| 
Unit Training Attendance for 2"* Qtr this FY | Number | 

Unit Training Attendance for 3 QtrthisFY =| Number | | 
[UTASQCFY_| Unit Training Atendance for 4” Qu this FY [Number | 
[—UTAIOTPF | Unit Training Attendance for ™Qtrlast FY | Number | 
[—UTA2Q1PF | Unit Training Atendance for 2” Que last FY | Number |__ 
[UTA3QIPF | Unit Training Attendance for 37 Qtrlast FY[ Number | __ 

Unit Training Attendance for 4" Qtr last FY 

Ses eae oe ae en eed | 

SS eee eee 
ee a) en ae - mene Eon nae 


| 
Required Data Elements 


Extract Queries: 

FINANCE _ FINANCE QTR 

SeeeCT “W" & LEFT(CURR UIC,5) AS UIC, SELECT "WW" & LEFT(CURR. UIC;5) AS UIC, 
COUNT(CURR_UIC) AS UTAIQCFY, UTA2QCFY, UTA3QCFY, 
VIC_TOTAL UTA4QCFY, UTAIQIPF, UTA2Q1PF, 

FROM FINANCE UTA3QI1PF, UTA4Q1PF 

WHERE CURR UVIC<"™ FROM FINANCE 

ORDER BY CURR_UIC WHERE CURR_UIC @ "" AND NPS_IND = NULL 

GROUP BY CURR UIC AND PAY STAT =‘A' 

INTO FINANCE _ ORDER BY CURR_UIC 

INDEX ON UIC as UIC INTO FINANCE QTR 

INDEX ON UIC as UIC 
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ARIES Data File Documentation Form 










ARIES File Name: Location: ACROPOLIS 
| File Type: FoxPro 2.6 Size(MB): 088 No. Records: 1,561 | 


Associated ARIES Tables: EeSe 


File Description: 
FPS is used to obtain information about the Cost to operate each facility as well as the Condition of each 
Facility. Used to return a value for the Cost per Square Foot and the Facility Condition. 


Required Data Elements 


Data Key 
Name Description Type Format | Field 


[—FACID | Facility ldentification Code —~—~| Char |__| No 
[_FAC_COND | Condition of the Facility | _Char_| | No 
[COST PR SF | Cost per Square Foot to Operate Facility | Number |__| No 
a UU 

a oi. = || | 
et Oe 
ee a ge eg ae 


Extract Queries: 
FPS _ 
paeteeCl! FAC ID, FAC_COND, COST PR_SF 
FROM — FPS 


WHERE FAC _ID@o"™ 

ORDER BY FAC_ID 

INTO — FPS_ 

INDEX ON FAC_ID as FACID, Primary, Unique 
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ARIES Data File Documentation Form 


ARIES File Name: EYxXxOSS Location: ACROPOLIS 


File Type: FoxPro 2.6 Size(MB): 85.4 No. Records: 260,000 


| Associated ARIES Tables: FYxxLOSS, FYxxXFER 


File Description: 


FYxxLOSS file contains information about the personnel losses incurred by each unit during a fiscal year. 
It is used to determine the Average Loss and Transfer Rate of a Unit. 


Required Data Elements 


Data Key 
Name Description Type Format | Field 


[UIC Unit Identification Code —————~+Y char | —*dY No 
[—TRMN | Transfer Reason Code___——————~+dY| Char [|_| _No 


Extract Queries: 
Fx xxLOSS FYxxXFER 
SELECT UIC! AS UIC, COUNT(UIC1) AS SELECT UICI AS VIC, COUNT(UICI) AS 
UIC_TOTAL Wie TOTAL 
HROM FY LOSS FROM FY_LOSS 
WHERE TRMN ='LOSS' WHERE TRMN ='TRFD' 
ORDER BY UIC] ORDER BY  UIC1 
GROUP BY UIC] GROUP BY  UICI 
iO FYxxLOSS INTO FYXxXPFER 
INDEX ON UIC as UIC, Primary, Unique INDEX ON UIC as UIC, Primary, Unique 
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ARIES Data File Documentation Form 


| ARIES File Name: G!7 Location: ACROPOLIS 


File Type: FoxPro 2.6 Size(MB): 3.11 No. Records: 5,869 


Associated ARIES Tables: G17Natl 


File Description: 


G17 file contains facility Unitname, street address data and Zip Code. It is used as the primary cross 
reference with Command Plan to display facility information and validate user input. 


Required Data Elements 


Data Key 
a eos Type Format | Field 


fikentgtree | 
ONTENAME— | Name ofthe Unit [Sra 
TFoccrry | City Unitis located | “thar 
TOCSTATE | Site Units located in [Char | | “No 
TOCzIP | Zip cade ofthe Unit | “Ghar [80 
SP") Gods cont ws deen Unt wceag | caer 

RECSTAT Recruiting Station Code | Number | =| No _ | 

TYPEORG Type of organization | Number | = | No | 


Extract Queries: 

GI17Nat!l 

SELECT UIC, UNITNAME, TCCCITY AS 
CilyY TCCSTAT AS-STATE, 
LEFT(TCCZIP,5) AS ZIP, TIER 

FROM GI7 

WHERE (RECSTAT <} "1") AND (TYPEORG 
= 2 JANDUIC<—™ 

ORDER BY UIC 

INTO  GI17Natl 

INDEX ON UIC as UIC, Primary, Unique 
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ARIES Data File Documentation Form 


ARIES File Name: GI8CWE Location: ACROPOLIS;..\MapBasic\UsarcDat 
a 


File Type: FoxPro 2.6 Size(MB): 145.9 No. Records: 208,416 


Associated ARIES Tables: G18Natl, G18Natl_UIC; also Geocoded for use in MapInfo 


File Description: 
G18 File contains information about personnel in the US Army Reserves. It is used in determining the 
Total Number Assigned used in calculating the Loss/Transfer Rates, Total Available Closing and the 
Reassignments values. Also used to obtain a list of the Zip Code’s and MOSs of every Reservists with their 
associated UIC.. 





Required Data Elements 


Data Key 
Name Description Type Format | Field 


Unit Identification Code assigned [Char |__| No 
Zip Code of the individual [Char [| No 
Primary MOS 









Oo 





Extract Queries: 

G18Natl G18Natl UIC 

SeeeCT UIC, LEFI(ZIP,5) AS ZIPCODE, SELECT UIC, COUNT(UIC) AS UIC_TOTAL 
LEFT(PRI,3) AS MOS FROM G18Natl 

FROM G18 _ ORDER BY UIC 

WHERE PRI = "" AND VIC &" GROUP BY UIC 

ORDER BY UIC INTO GI8Natl VIC 

INTO  GI18Natl INDEX ON UIC as UIC, Primary, Unique 


INDEX ON UIC as VIC 
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A RIES Data File Documentation Form 


ARIES File Name: G1I9TRUE Location: ACROPOLIS 


Fare | ype: FoxPro 2.6 Size(MB): ‘14.4 No. Records: Zone! 


Associated ARIES Tables: G19Natl 


File Description: 


G19 File contains information about the required manning levels of each Unit. It is used in determining 
Average Area Manning for a Facility. 


Required Data Elements 


Data Key 
Name Description Type Format | Field 


OWN _UIC Unit Identification Code | Char | = | No | 


Extract Queries: 

G19Natl 

SELECT OWN_UIC AS UIC, 
COUNT(OWN_UIC) AS 
UIC_TOTAL 

FROM G19 

WHERE OWN _ UIC @&"™" 

ORDER BY OWN UIC 

GROUP BY OWN UIC 

INTO G19Natl 

INDEX ON UIC as UIC 
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ARIES Data File Documentation Form 


ARIES File Name: GEOREF Location: ACROPOLIS;..\MapBasic\UsarcData 
File Type: FoxPro 2.6 Size(MB): — .21 No. Records: 1,553 


Associated ARIES Tables: VALID_UNIT; also Geocoded for use in MapInfo 


File Description: 


Georef File contains specific information about each Unit. It is used to verify and cross reference FACID's 
and UIC as well as Facility and Unit specific information. 


Required Data Elements 


Data Key 
Name Description Type Format | Field 


[—FACID | Facility Identification Code ——~—S~S~YCST har] «YSN 
[FAC_TITLE [Name of the Facility ___———~—~—*dY Char ——S*dY SN 
[_FAC_CITY | City the Facility is locatedin | Char [|__| No 
[_FAC-STATE | State the Facility is locatedin | Char_[_|_No_ 
[FAC_ZIP___| Zip Code ofthe Facility | Char_| | No 
[Latitude | Position of Facility by degree of latitude | Number |__| No 


Position of Facility by degree of longitude | Number |__| No 


Extract Queries: 

VALID _ UNIT 

pebeCl FAC ID, FAC TITLEAS 
UNITNAME, FAC CITY AS CITY, 
FAC STATE AS STATE, 
LEFT(FAC_ZIP,5) AS ZIP 

FROM GEOREF 

WHERE FAC ID@o"" 

ORDER BY FAC _ID 

INTO VALID _UNIT 

INDEX ON FAC_ID as FACID 
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ARTES Data File Documentation Form 


— ee = or 5 5 — 


ARIES File Name: INTEREST Location: ACROPOLIS 
File Type: FoxPro 2.6 Size(MB): 4.2 No. Records: 3,985 


Associated ARIES Tables: INTEREST _ 


File Description: 
Interest File contains information about facilities and the date they were acquired. It is used to calculate 
the Facility Age for each facility.. 


Required Data Elements 


Data Key 
Name Description Type Format | Field 


FAC _IDSTR Facility Identification Code Pechar | en Oe 
DATE ACQ Date Facility Acquired eae) Nos 


ABB TYPE 


o 


Extract Queries: 

INTEREST _ 

SELECT FAC IDSTR AS FAC ID, DATE ACQ 

FROM — INTEREST 

WHERE FAC_IDSTR < "" AND ABB_TYPE = 
"USARC (MB)" AND NOT 
ISNULL(DATE_ACQ) 

ORDER BY FAC IDSTR 

[INTO INTEREST 

INDEX ON FAC ID as FACID, Primary, Unique 





es 


THIS PAGE LEFT INTENTIONALLY BLANK 


114 


ARIES Data File Documentation Form 


ARIES File Name: IRR Location: ...\MapBasic\UsarcData 


File Type: FoxPro 2.6 Size(MB): — 7.5 No. Records: 140,077 


| Associated ARIES Tables: Not in ACROPOLIS, Geocoded for use in MapInfo 


File Description: 


IRR File contains information about the individuals listed in the Individual Ready Reserve. It is used to 
determine the value for IRR Available and Available MOS IRR. 


Required Data Elements 


: Data Key 
Name Description Type Format | Field 


ZIPC Zip Code for IRR Individual | Char | = | No | 


Extract Queries: 


NONE 
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ARTES Data File Documentation Form 


ARIES File Name: NGNON CL Location: ...\MapBasic\UsarcData 
| File Type: FoxPro 2.6 Size(MB):  .64 No. Records: 3,673 


Associated ARIES Tables: Not in ACROPOLIS, Geocoded for use in MapInfo 


File Description: 
NGNON CL File contains information about the non-closing National Guard Units. It is used in 
determining the value for Competition. 


Required Data Elements 


Data Key 
On <a a Type Format | Field 


[Char |_| Yes 
Se ae 
— ae 


Extract Queries: 


NONE 
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ARIES Data File Documentation Form 






ARIES File Name: QMA Location: ...\MapBasic\Usarc Data 







File Type: FoxPro 2.6 Size(MB): 2.8 No. Records: 34,265 








Associated ARIES Tables: Not in ACROPOLIS, Geocoded for use in MapInfo 









File Description: 


QMA File contains Census information. It is used in determining the value for Recruit Market for each 
Facility. 


























Required Data Elements 
Data Key 
Name Description Type Format | Field 
MWCATI12 White Male Mental Categories 1 &2 


Zip Code | [No 
MWCAT3A White Male Mental Category 3A 
MBCATI12 Black Male Mental Categories 1 &2 | No | 






ZA Za 
O06 fo 


Z| Z 
O}° 


— 

aa 

ta 

eae 

| MBCAT3A__| Black Male Mental Category3A | Number || No __ 

| MHCATI2___| Hispanic Male Mental Categories 1&2 | Number |_| No__ 
a 
i 
eed 
rome 
een oil 
ian 


Za 
3° 





a i = aaa. mals 
ee ae 
Tn =r 
Rls ocean aoa base] 
age ceo a= oleae aieema | moot 





a — 


Extract Queries: 


NONE 
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ARIES Data File Documentation Form 





=a TE ET 


| File Type: FoxPro 2.6 Size(MB): 14.3 No. Records: 47,159 


Associated ARIES Tables: FPINFODT _ 


ARIES File Name: RPINFODT Location: ACROPOLIS 


File Description: 
RPINFODT is a file that contains information about the backlogged maintenance costs of each Facility. It 
is used to determine the amount of backlogged maintenance is required at the given Facility. 


Required Data Elements 


Data Key 
Name Description Type Format | Field 


FAC_ID Facility Identification | Char | = | No | 
CWE TOTAL Total amount of outstanding Maint. Actions | Number | =| No | 


Extract Queries: 
RPINFODT _ 
SELECT FAC_ID, SUM(CWE_ TOTAL) AS 
MAINT COST 
FROM  RPINFODT 
WHERE FAC ID<"" 
ORDER BY FAC_ID 
GROUP BY FAC ID 
INTO = RPINFODT_ 
INDEX ON FAC _ ID as FACID, Primary, Unique 
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ARIES Data File Documentation Form 


—— -_— — - 
AS 


ARIES File Name: RZA Location: ... MapBasic\UsarcData 


File Type: FoxPro 2.6 Size(MB): —.16 No. Records: a2 


| Associated ARIES Tables: Not in ACROPOLIS, Geocoded for use in MapInfo 








File Description: 
RZA File contains information about the location of Recruit Stations. It 1s used to determine the distance 
to the nearest Recruit Station. 











Required Data Elements 


Data Key 
Name Description Type Format | Field 


Recruit Station Identification Code [Char |_| No 
Recruit Station Title [Char [_|_No 
Zip Code of the Recruit Station [Char [| No 


latitude Position of Recruit Station by latitude 
longitude Position of Recruit Station by longitude 







OoO;oO 


Extract Queries: 


NONE 
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APPENDIX B. ARIES BUSINESS RULES AND PROCESSES. 


This appendix contains detailed information about the calculation of each ARU-Decision 
Model parameter that was automated in the ARIES SDSS prototype application. The 
information includes a description of each decision parameter, the business rule used to calculate 
the associated value, base units, source files, associated data migration warehouse 
(ACROPOLIS) tables, query or queries involved in the calculation, a description of the yield 
curve, and a graph of the yield curves. “ACROPOLIS” is the file name for the ARIES data 
resource file. 

The term “in the area” in this Appendix is defined as being with in a 50-mile radius of the 


moving unit or proposed facility. 


Index 
Decision Parameter 1. Facility Backlogged Maintemancee ...0................ccsssscsesssesscosssrsvsessenseceecees 27 
meee emearaineter 2. Facility Operating Costs c.gsscec eee osegooe oo secs. -oseoede se oeeess eeccscoeveoasvams 129 
ere emeearainerer 53 PACITY A 26 iiciwsaiieccrenes ssn seteseeeeenetes ee tttscetvcslas sac sadyssckaeem eet: ea tases 131 
Seraltonmearameten 4. Faculty COmGitOn sr. ceecceees ar eee eee sc 0a ss asic eee eget ence 133 
ieencmniearameters. Facility Ownershig..c.asssccies cere eget. o late acccccesssoecsss.ccesossaeeeseseeee [35 
meeeomaraimeter O. COmpetitlOn sus. xc water see eee a teesn eter Me ove ck cds e sc xh se were ee ee 137 
Bieetemrarameter 7. Averase Area DrillAttemdance yas: s0ces scons a5. oso devcseassveeees eters eee 139 
reeieronearameter >. Area 1605S Rat yjcacccm een cent enc evar do scucccse srt sdcecaacsseceeeeaeaceeeee 141 
Meeesionmearameter 9. Area lranster Rate. .sscc-tsetrtiessce. seco cece dadi anes svgovsaseseces Solera ceeennee 143 
Beeironeearameter 10. Area Average Malini c..0.2.0-.0s00cssecders si cisostsclecoccuesnsucccsoocesterdenesecserecs 145 
econ Parameter 11. Distance to Nearest Recruit Station. ....................00s00000sssesosssecenssessosecees 147 
Decision Parameter 12. Available Transfers from Closing Units................c::ccccccssssscccceeeeeeeeeess 149 
Mem reneraraimneter 13. UR RvAvatlable jecsesrerrtc terres este ase sc dsiiccsdn oe oso esetntsanecaessneoneemeune hs) 
mmeneroneearaincter 14, Recruit Wankel ¢ erect: atte shes ss .usssccccsceerersedstasecssescsooseeueeee 153 
Mieeiaioimearaincter >. .REASSI@MMEN(S (eee e eerie sss steicctes rs eeec Lagat fev cs essseesadesseescessbeomeeaen 155 
Decision Parameter 16. Distance to Area Maintenance Support ACtivity ............ cc cccecceeeeeeeeees lee 
Decision Parameter 17. Distance to Nearest Equipment Concentration Site .............ceeeeeeeeeees 159 
Pacis rarameter 1S. Faciity Weekemas e) SeG re coils... .s5.c5cncccccee.<+.000sronnecoacnsoneeseessenueouane 161 
imeciion Paraineter 19. Avaitanle MOS trom Closing Units 2 .......2. 22. ceceteeggs--s...00rcecuneseseeoeeune 163 
ipecision Parameter 20s allaplo Wiis TRIR creer ecacee ee Gotet cas soso cnsseveuseuteGutatesscccoseseseuceracteomeees 167 
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Decision Parameter 1. Facility Backlogged Maintenance 
Definition: Facility Backlogged Maintenance provides the total dollar value of backlogged 
maintenance. This provides an indication of the initial investment required to 
correct the significant maintenance problems with a proposed facility. 
Calculation: The Backlogged Maintenance value is based upon the sum values for maintenance 
actions documented for each facility in the “CWE TOTAL” field of the 
RPINFODT file. The summation is done during the data extraction phase. 
Maint Cost[Sum of outstanding maintenance actions for a facility] 
Units: Dollars 
Source File: RPINFODT 
ACROPOLIS Table(s): RPINFODT_ 
Query: Maint Cost 
SELECT MAINT COST 
FROM ~~ RPINFODT_ 
WHERE RPINFODT_.FACID = ProposedFacility. FAC ID 
Yield Curve: A linear relationship is assumed between the backlogged maintenance costs and 


utility. Every dollar required or saved in this category is expected to have equal 
utility to a relocating unit. 


Utility 


0 1,000,000 
Dollars 


Max Utility: 0 Min Utility: > 1,000,000 
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Definition: 


Calculation: 


Units: 


Source File: 


DECISION PARAMETER 2. Facility Operating Costs 


Facility Operating Costs provide an indication of the financial resources that are 

required to maintain the facility in a serviceable condition. This includes both 

utilities and minor maintenance costs. 

Operating Costs are extracted from the “COST PR SF” field of the FPS file. 
COST _PR_SF[Retrieve the Cost per Square Foot for a facility] 


Dollars per square foot per month 


ERS 


ACROPOLIS Table(s): FPS_ 


Query: 


Yield Curve: 


COST PR SF 
SELECT COST PR SF 
FROM FPS_ 


WHERE  FPS_.FACID = ProposedFacility. FAC ID 


A linear relationship is assumed between the operating costs and utility. Every 
dollar required or saved in this category is expected to have equal utility to a 
relocating unit. 


Utility 


100 
Dollars/square foot per month 


Max Utility: 0 Min Utility: > 100 
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Decision Parameter 3. Facility Age 

Definition: | This Decision Parameter indicates the age of the primary structure on the 
proposed relocation site. It is intended to reflect an assumed long term structural 
degradation with time. 

Calculation: Facility age is calculated based upon the acquisition date found in the INTEREST 
file. The acquisition date is compared to the current date and the difference is 
determined in months. 

DATE ACQ[Current Year - Date Acquired] 

Units: Months 

Source File: INTEREST 

ACROPOLIS Table(s): INTEREST _ 

Query: DATE ACQ 
SELECT DATE ACQ 
FROM — INTEREST _ 

WHERE INTEREST_.FACID = ProposedFacility.FAC_ID 


Yield Curve: A linear relationship is used between facility age and utility. 


Utility 


0 1,200 
Months 


Max Utility: 0 Min Utility: > 1,200 


en 
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Definition: 


Calculation: 


Units: 


Source File: 


Decision Parameter 4. Facility Condition 


Facility Condition is based upon a visual inspection of the structure and provides 
an indication of the serviceability of the primary structures. 


This Decision Parameter is based upon the ISR part | rating entered in the 
“FAC COND?” field of the FPS file. 


FAC COND Retrieve Facility Condition] 
No Units(Green, Amber, Red) 


FPS 


ACROPOLIS Table(s): FPS _ 


Query: 


Yield Curve: 


FAC COND 

SELECT FAC COND 

FROM ~— FPS_ 

WHERE  FPS_.FACID = ProposedFacility. FAC ID 


The utility of these three categories varies in discrete steps. A facility that is 
categorized as “green” is judged to be approximately twice a desirable as one that 
is assigned an “amber” rating. , 


1.0 


Utility 0.5 





RED AMBER GREEN 


Max Utility; GREEN Min Utility: RED 
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Definition: 


Calculation: 


Units: 


Source Data: 


Decision Parameter 5. Facility Ownership 


This Decision Parameter indicates whether the facilities at a proposed relocation 
site are leased or owned. 


Facility Ownership is based upon the entry in the “GOVT OWN?” field of the 
COMPLEX file. 


GOVT OWN|Retrieve Ownership Status] 
No Units(Yes/No) 


COMPLEX 


ACROPOLIS Table(s): COMPLEX_ 


Query: 


Yield Curve: 


GOVT _OWN 

SELECT GOVT_OWN 

FROM COMPLEX, 

WHERE COMPLEX .FACID = ProposedFacility.FAC_ID 


Facilities that are owned by the government are preferred as relocation sites over 
those facilities that are leased. The owned sites are assigned the maximum utility 
value of 1.0, while leased sites are given a 0 utility score. 


Utility Ais 
0 
NO YES 
Max Utility: Yes Min Utility: No 
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Decision Parameter 6. Competition 


Definition: This Decision Parameter provides an indication of the level of competition for 
potential reservists. It considers only Army Reserve and Army National Guard 
units in the area of the relocation site. 


Calculation: Competition is determined by the number of positions that must be filled by all 
other Army Reserve and Army National Guard (ARNG) units in the area of the 
proposed relocation site. For Army Reserve units, the number of required 
positions is determined by counting the number of records in the GI9TRUE file 
associated with each UIC in the area. For ARNG units, the value is found in the 
“AUTH?” field of the NGNON CL file. 


NO_AUTH_NG[Number Authorized National Guard] + 
NO_REQD[Number Area Reservists Required] 


Units: Number of competing positions 
Source Files COMMAND PLAN, G17, GI9STRUE, GEOREF, NGNON_ CL 
ACROPOLIS Table(s): CMDPLAN, G17Natl, G19Natl, VALID UIC 


Query: Area-FACID List(MapInfo) 
SELECT FAC ID INTO TempFACID 
FROM GEOREF 
WHERE Object Within ObjAreaBuffer 
ORDER BY FAC ID 
(Note: ObjAreaBuffer is equal to 300 miles) 


VALID_UIC 

SELECT UIC, FAC_ID, UnitName, City, State, Zip 

FROM ~~ GI17Natl 

WHERE G17Natl.UIC = ANY (SELECT CMDPLAN.UIC 
FROM CMDPLAN) 


Area-UIC List 

SELECT DISTINCT UIC INTO AREA UIC 

FROM VALID_UVIC 

WHERE VALID_UIC.FAC_ID = ANY (SELECT AREA _FACID.FAC_ ID 
FROM AREA FACID) 


NO _AUTH_NG(MapInfo) 
SELECT * INTO TempNGUnits 
FROM  NON_CLOS 


hoy 


Yield Curve: 


WHERE Obj Within ObjAreaBuffer 


SELECT SUM(AUTH) “No AUTH NG” INTO Strength 
FROM TempNGUnits 


NO. REQD 

SELECT SUM(UIC TOTAL) AS TOTAL REQD 

FROM ~~ G19Nat! 

WHERE G19Natl.UIC = ANY (SELECT AREA _UIC.UIC 
FROM AREA UIC) 


A linear relationship exists between the number of competing positions from other 
units and the utility of a relocation site. The level of no site utility in this 


Decision Parameter begins at 10,000 positions which is above the maximum value 
expected: 


Utility 


Competing Positions red 


Max Utility: 0 Min Utility: > 10,000 
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Definition: 


Calculation: 


Units: 


Source File: 


Decision Parameter 7. Average Area Drill Attendance 


This Decision Parameter indicates the fraction of reservists with satisfactory drill 
attendance for all existing units in the area of the proposed relocation site. Areas 
with a high fraction of satisfactory drill attendance are preferred relocation sites 
because units relocated to that area are assumed to perform similarly in drill 


attendance. 


This Decision Parameter considers the last four quarters of data contained in the 
FINANCE file. After initial screening, the number of reservist with 21 or more 
drill periods for the year is divided by the total number of people who meet the 


screening. 


DRILL SAT [Number of reservists with > 21 drill periods in a year] 
DRILL_ TOTAL [Number of reservists required to drill] 


Ratio 


COMMAND PLAN, FINANCE, G17, GI9TRUE, GEOREF 


ACROPOLIS Table(s): CMDPLAN, FINANCE , FINANCE QTR, G17Natl, G19Natl, 


Query: 


VALID _UIC 


Area-FACID List(MapInfo) 

SELECT FAC IDINTO TempFACID 
FROM GEOREF 

WHERE Object Within ObjAreaBuffer 
ORDER BY FAC_ID 

(Note: ObjAreaBuffer is equal to 300 miles) 


VALID_UIC 

SELECT UIC, FAC ID, UnitName, City, State, Zip 

FROM ~~ G17Natl 

WHERE G17Natl.UIC = ANY (SELECT CMDPLAN.UIC 
FROM CMDPLAN) 


Area-UIC List 

SELECT DISTINCT UIC INTO AREA UIC 

FROM VALID_UIC 

WHERE VALID UIC.FAC_ID = ANY (SELECT AREA _FACID.FAC ID 
FROM AREA _ FACID) 


lee 


Yield Curve: 


FINANCE Sem 
SELECT UIC, COUNT(UIC) AS UIC TOTAL INTO FINANCE CY 
FROM ~~ FINANCE QTR 
WHERE (Select Case) 
Case 1° Qtr FY 
(UTAIQIPF + UTA2QIPF + UTA3QI1PF + UTA4QIPF) > 20 
Case 2" Qtr FY 
(UTA2Q1PF + UTA3QIPF + UTA4QIPF + UTAIQCFY) > 20 
Case 3™ Qtr FY 
(UTA3QIPF + UTA4QIPF + UTAIQCFY + UTA2QCFY) > 20 
Case 4" Qtr FY 
(UTA4QIPF + UTAIQCFY + UTA2QCFY + UTA3QCFY) > 20 
GROUP Ty Sawie 
ORDER BY UIC 


DRILL-SAT 

SELECT SUM(UIC TOTAL) AS TOTAL SAT 

FROM  FINANCE_CY 

WHERE FINANCE CY.UIC = ANY (SELECT AREA _UIC.UIC 
FROM AREA UIC) 


DRILL-TOTAL 
SELECT SUM(UIC_TOTAL) AS DRILL TOTAL 
FROM ~— FINANCE _ 
WHERE FINANCE .UIC = ANY (SELECT AREA UIC.UIC 
FROM AREA UIC.UIC) 
The utility of the average drill attendance rate increases linearly between the 


values of 0 and 0.6. Above that point, increases in the attendance rate result in 
diminishing returns. Values above 0.6 become increasingly uncommon. 


1 


Utility 


Satisfactory Attendance / Total Reservists 


Max Utility: 1.0 Min Utility: 0.0 
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Decision Parameter 8. Area Loss Rate 


Definition: | This Decision Parameter indicates the fraction of reservists who left the reserves 
in the previous fiscal year, for all existing units in the area of the proposed 
relocation site. Areas with a low loss rate are preferred relocation sites because 
units relocated to that area will also experience low loss rates. 


Calculation: The number of losses to units in the area in the previous fiscal year is divided by 
the number of reservists currently assigned to these units. Losses are identified 
through the transfer mnemonic field (TRMN="LOSS”) of the FyxxLOSS file. 
The number of assigned reservists is determined by counting all of the personnel 
records in the G18CWE file associated with each UIC in the area. 


NO_LOSS[Total Number of Losses in the last year] 
NO_ASSN[Total Number Reservists Assigned] 


Units: Ratio 
Source File.) COMMAND PLAN, FYxxLOSS, G17, GI8C WE, GEOREF 
ACROPOLIS Table(s): CMDPLAN, FYxxLOSS, G17Natl, G18Natl UIC, VALID _UIC 


Query: Area-FACID List(MapInfo) 
SELECT FAC ID INTO TempFACID 
FROM ~GEOREF 
WHERE Object Within ObjAreaBuffer 
ORDER BY FAC _ID 
(Note: ObjAreaBuffer is equal to 300 miles) 


VALID_UIC 

SELECT UIC, FAC_ID, UnitName, City, State, Zip 

FROM G17Natl 

WHERE GI17Natl.UIC = ANY (SELECT CMDPLAN.UIC 
FROM CMDPLAN) 


Area-UIC List 

SELECT DISTINCT UIC INTO AREA UIC 

FROM VAI ie 

WHERE VALID _UIC.FAC_ID = ANY (SELECT AREA FACID.FAC ID 
FROM AREA _FACID) 


NO_ASSN 
SELECT SUM(UIC TOTAL) AS TOTAL_ASSN 
FROM G18Natl_UIC 


14] 


Yield Curve: 


WHERE G18Natl UIC.UIC = ANY (SELECT AREA_UIC.UIC 
FROM AREA UIC) 


NO_LOSS 

SELECT SUM(UIC_TOTAL) AS TOTAL _LOSS 

FROM  -FYxxLOSS 

WHERE FYxxLOSS.UIC = ANY (SELECT AREA_UIC.UIC 
FROM AREA UIC) 


This function includes both concave and convex regions. The inflection point 
occurs at a loss rate of .33 and a utility of 0.5. Based on experience, a loss rate of 
one third per year was considered to be typical. Any loss rate below this value 


has relatively high utility, whereas loss rates above the inflection point quickly 
approach a utility of zero. 


Utility 


Losses / Total Number of Reservists 


Max Utility: 0 Min Utility: 1 
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Definition: 


Calculation: 


Units: 


Source File: 


Decision Parameter 9. Area Transfer Rate 


This Decision Parameter indicates the fraction of reservists who transferred to 
different units in the previous fiscal year for all existing units in the area of the 
proposed relocation site. Areas with a low transfer rate are preferred relocation 
sites because units relocated to that area will also experience low transfer rates. 


The number of transfers in the previous fiscal year is divided by the number of 
reservists currently assigned to the unit. Transfers are identified through the 
transfer mnemonic field (TRMN=’TRFD”) of the FyxxLOSS file. The number of 
assigned reservists 1s determined by counting all of the personnel records in the 
GI8CWE file associated with each UIC. 


NO_XFER[Total Number of Transfers in the last year] 
NO_ASSN[Total Number Reservists Assigned] 


Ratio 


COMMAND PLAN, FYxxLOSS, G17, GI8C WE, GEOREF 


ACROPOLIS Table(s): CMDPLAN, G17Natl, G18Natl UIC, FYxxXFER, VALID UIC 


Query: 


Area-FACID List(MapInfo) 

SELECT FAC IDINTO TempFACID 
FROM = GEOREF 

WHERE Object Within ObjAreaBuffer 
ORDER BY FAC ID 

(Note: ObjAreaBuffer is equal to 300 miles) 


VALID_UIC 

SELECT UIC, FAC ID, UnitName, City, State, Zip 

FROM  G17Natl 

WHERE G17Natl.UIC = ANY (SELECT CMDPLAN.UIC 
FROM CMDPLAN) 


Area-UIC List 

SEEECGUP DISMINC! VICINIO AREA UIC 

FROM VALID _ UIC 

WHERE VALID UIC.FAC_ID=ANY (SELECT AREA FACID.FAC ID 
FROM AREA FACID) 
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Yield Curve: 


NO_ASSN 

SELECT SUM(UIC_TOTAL) AS TOTAL_ ASSN 

FROM  G18Natl_UIC 

WHERE G18Natl_UIC.UIC = ANY (SELECT AREA _UIC.UIC 
FROM AREA UIC) 


NO_XFER 

SELECT SUM(UIC_TOTAL) AS TOTAL XFER 

FROM  FYxxXFER 

WHERE FYxxXFER.UIC = ANY (SELECT AREA _UIC.UIC 
FROM AREA UIC) 


This function includes both concave and convex regions. The inflection point 
occurs at a loss rate of .33 and a utility of 0.5. Based on experience, a transfer rate 
of one third per year was considered to be typical. Any loss rate below this value 
has relatively high utility (close to 1.0), whereas loss rates above the inflection 


point quickly approach a utility of zero. 


Utility 


: Number of Transfers / Total Number Assigned 


Max Utility: 0 Min Utility: 1 
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Definition: 


Calculation: 


Units: 


Source File: 


Decision Parameter 10. Area Average Manning 


This Decision Parameter indicates the ability to fill the required positions. An 
average value is determined for all existing units in the area of the proposed 
relocation site. Areas with high average manning levels are preferred relocation 
sites because units relocated to that area will also experience high manning levels. 


The number of reservists assigned to area units (based upon the number of 
personnel records in GI8CWE file associated with each UIC) is divided by the 
number of required positions (based upon the number of positions in the 
GI9TRUE file associated with each UIC). An average is calculated for all UIC’s 
in the area of the proposed site. 


NO_ASSN[Total Number Reservists Assigned] 
NO_REQD[Number Area Reservists Required] 


Ratio 


COMMAND PLAN, G17, GI8CWE, G19TRUE, GEOREF 


ACROPOLIS Table(s): CMDPLAN, G17Natl, G18Natl UIC, G19Natl, VALID_UIC 


Query: 


Area-FACID List(MapInfo) 

SELECT FAC _ID INTO TempFACID 
FROM GEOREF 

WHERE Object Within ObjAreaBuffer 
ORDER BY FAC ID 

(Note: ObjAreaBuffer is equal to 300 miles) 


VALID_UIC 

SELECT UIC, FAC_ID, UnitName, City, State, Zip 

FROM ~— GI17Natl 

WHERE G17Natl.UIC = ANY (SELECT CMDPLAN.UIC 
FROM CMDPLAN) 


Area-UIC List 

SELECT DISTINCT UIC INTO AREA UIC 

FROM VALID VIC 

WHERE VALID UVIC.FAC ID=ANY (SELECT AREA FACID.FAC ID 
FROM AREA FACID) 
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Yield Curve: 


NO_ ASSN 

SELECT SUM(UIC_TOTAL) AS TOTAL_ASSN 

FROM  G18Natl UIC 

WHERE G18Natl UIC.UIC = ANY (SELECT AREA _UIC.UIC 
FROM AREA UIC) 


NO _REQD 

SELECT SUM(UIC_TOTAL) AS TOTAL_REQD 

FROM  G19Nat!l 

WHERE G19Natl.UIC = ANY (SELECT AREA _UIC.UIC 
FROM AREA UIC) 


It is desirable that area units be able to exceed their minimum manning 
requirements. All manning levels above 125% are considered to have maximum 
utility. Manning levels below this value drop off quickly in terms of utility. 


Utility 


Assigned reservists / Required reservists 


Max Utility: 1.25 Min Utility: 0 
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Decision Parameter 11. Distance to Nearest Recruit Station 


Definition: 


Calculation: 


Units: 


Source Data: 


Distance to the nearest Recruiting Station provides one indication of recruiter 
effectiveness. 


The straight-line distance from the proposed site to the closest recruiting station is 
calculated using a geocoded version of the RZA file. 


DIST _RZA[Determine distance to nearest Recruit Station] 
Miles 


RZA 


ACROPOLIS Table(s): NONE 


Query: 


Yield Curve: 


DIST_RZA(MapInfo) 

SEeEC, = 

FROM RZA 

WHERE Obj Withing ObjDistanceBuffer into TempRZA 
(Note: ObjDistanceBuffer is equal to 300 miles) 


SELECT Distance((CentroidX(Obj), Centroid Y(Obj), FacIDLat, FacI[DLong, “mi’’) 
FROM TempRZA 
ORDER BY Distance INTO TempRZA.Dist 


The effectiveness of a recruiting station in filling positions at a reserve unit is 
fairly high if the two are within a half hour drive of each other. It is assumed that 
recruiters are most effective in the area close to their recruiting station and that 
reserve recruits must be located near the unit with which they will serve. A 
distance of 30 miles is assigned an average utility of 0.5. A small change in 
distance results in less change in desirability when the distance is very small or 
very large than it does when the distance 1s around 30 miles. 


Utility 


Miles 


Max Utility: 0 Min Utility: > 100 
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Decision Parameter 12. Available Transfers from Closing Units 


Definition: 


Calculation: 


This value indicates the total number of personnel assigned to closing units within 


50 miles of the proposed site. 


A list of Unit Identification Codes (UIC’s) is created which contains only those 
units scheduled to close within 18 months. These units are identified by an entry 
of 5B in the “Tier” field of the G17 file. The number of potential transfers from 
closing units is calculated by summing the number of records in the GI8CWE 
database for the closing units which are located in the area of the proposed 


relocation site. 


TOTAL _AVAIL[Total Number of Available Reservists from Area Closing Units] 


Units: 


Source File: 


Ratio 


COMMAND PLAN, G17, GI8CWE, GEOREF, US_ZIPS(MapInfo) 


ACROPOLIS Table(s): CMDPLAN, G17Natl, VALID _UIC 


Query: 


Area-FACID List(MapInfo) 

SELECT FAC_IDINTO TempFACID 
FROM  GEOREF 

WHERE Obj Within objAreaBuffer 
ORDER BY FAC_ID 

(Note: objAreaBuffer is equal to 300 miles) 


VALID_UIC 

SELECT UIC, FAC_ID, UnitName, City, State, Zip 

FROM ~— GI17Natl 

WHERE) G17Natl.UIC = ANY (SELECT CMDPLAN.UIC 
FROM CMDPLAN) 


Area-UIC List 

SELECT DISTINCT UIC INTO AREA UIC 

FROM  VALID_UVIC 

WHERE VALID_UIC.FAC_ ID =ANY (SELECT AREA FACID.FAC_ID 
FROM AREA FACID) 


AREA _CLOS UIC 
SELECT UIC 
FROM  G17Natl 
WHERE G17Natl. TIER = “5B” 
AND G17NatI.UIC = ANY (SELECT AREA_UIC.UIC 
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Yield Curve: 


FROM AREA UIC) 


AREA ZIPCODE(MapInfo) 
SEEEC) “ZIEsCODE 

PROM) JUSeZzirs 

WHERE Obj Within objAreaBuffer 
ORDER BY ZIP CODE 


Area G18 ZIP(MapInfo) 

SEEEGr DIS TING! Ule, ZIPCODE, COUNT(UIE) AS UIC TOTAL 
FROM = GI8CWE 

GROUP By esUle ZIPCODE 

ORDER BY UIC, ZIPCODE 


TOTAL_ AVAIL 
SELECT SUM(UIC_TOTAL) AS TOTAL_AVAIL 
FROM Area _G18_ ZIP 
WHERE Area G18 ZIP.UIC = ANY (SELECT AREA_CLOS.UIC.UIC 
FROM AREA_CLOS_UIC) 
AND Area G18 _ZIP.ZIPCODE = ANY (SELECT AREA_ZIPCODE.ZIP 
FROM AREA_ ZIPCODE) 


The shape of this function assumes diminishing returns in the number of transfers 
available. Experience suggests that for an average unit of 100 people, 
approximately half have prior reserve experience and that approximately half of 
the people in a closing unit will be able to transfer their skills directly to a new 
unit. The value of the first 100 reservists increases at a nearly linear rate because 
they provide preferred fills for approximately 50 of the positions of the moving 
unit. A value of 100 personnel is assigned a utility of 0.9. The incremental value 
added by each additional person over 100 continues to drop until no marginal gain 
is expected over 500. 


1 


Utility 


People 250 
Max Utility: > 250 Min Utility: 0 
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Definition: 


Calculation: 


Units: 


Source File: 


Query: 


Yield Curve: 


Decision Parameter 13. IRR Available 


Individual Ready Reserve (IRR) Available is the number of IRR members living 
in the area of the proposed relocation site. This is a Decision Parameter of the 
size of the prior service market. 


A geographical query returns the total number of IRR members living within a 
specified distance of the proposed relocation site. This process requires a 
geocoded version of the IRR file. 


TOTAL_IRR[Total Number of Available IRR from the Area] 
People 
IRR 


ArealIRR(MapInfo) 
SELECT ZIPC “ZIP”, LEFT$(PMOS, 3) “MOS” 
FROM — IRR 
WHERE Obj Within objAreaBuffer 

AND ZIPC <= “” AND PMOS = “” 
ORDER BY ZIPC 
(Note: objAreaBuffer is equal to 300 miles) 


TOTAL IRR 
SELECT COUNT(*) AS TOTAL IRR 
FROM ArealIRR 


For a typical unit of 100 people, it is assumed that approximately 40 positions 
could best be filled by IRR members. The recruiting rate for the IRR is 
approximately | percent, so an area that offers 4,000 IRR members is assigned an 
average utility of 0.5. Above this point, there are diminishing returns. The 
market begins to exceed the personnel demand of a moving unit and limited 
recruiting efforts become marginally less effective. The utility of smaller 
numbers quickly drops off because of the importance of this source of recruits. 
] 


Utility 


Peeple 10,000 


Max Utility: > 10,000 Min Utility: 0 
he 
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Definition: 


Calculation: 


Units: 


Source File: 


Decision Parameter 14. Recruit Market 


The Recruit Market Decision Parameter estimates the total number of males who: 
1. live in the area of the proposed relocation site 

2. Would score in the top half on the Armed Forces Qualification Test (AFQT) 
3. Fall into the desired age group (17 - 29 years old) 


This Decision Parameter sums the entries for all mental categories 1 through 3A, 
and all ethnic groups for the zip codes of interest in the Qualified Military 
Available (QMA) file. The version of QMA used contains only the estimates for 
males within the age range of 17 to 29. 


TOTAL _MARKET[Total Non-Prior Service Personnel from the Area] 


People 


QMA, US_ZIPS(MapInfo) 


ACROPOLIS Table(s): NONE 


Query: 


QMA(MapInfo) 

SELECT LEFTS$(ZIP, 5) “ZIPCODE”, MWCAT12, MWCAT3A, MBCATI12, 
MBCAT3A, MHCAT12, MHCAT3A 

FROM QMA 

WHERE Obj Within objAreaBuffer 

ORDER BY ZIP 

(Note: objAreaBuffer is equal to 300 miles) 


AREA ZIPCODE(MapInfo) 
SERBCR ZIP CODE 

FROM ~~ US ZIPS 

WHERE Obj Within objAreaBuffer 
ONDER BY ZIP CODE 


TOTAL. MARKET 
SELECT SUM(MWCAT12+MWCAT3A+MBCAT12+MBCAT3A+ 
MHCAT12+MHCAT3A) AS TOTAL. MARKET 
FROM QMA 
WHERE QMA.ZIP = ANY (SELCET AREA. ZIPCODE.ZIP 
FROM AREA_ZIPCODE) 


eS 


Yield Curve: Approximately half of a typical unit of 100 reservists is filled by recruits with no 
prior service. Assuming a recruit rate of 0.25 percent, there must be at least 
20,000 people in the area of the proposed relocation site who meet all of the 
requirements stated above. This value is assigned a typical utility of 0.5. As the 
number increases, there are diminishing returns. The market begins to exceed the 
personnel demand of a moving unit and limited recruiting efforts become 
marginally less effective. 


Utility 


0 250,000 
People 


Max Utility: > 250,000 Min Utility: 0 
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Decision Parameter 15. Reassignments 


Definition: |The Reassignments Decision Parameter indicates the fraction of the reservists 
assigned to the moving unit who currently live within a specified distance (50 
miles) of the proposed relocation site 


Calculation: This Decision Parameter is calculated by first determining all zip codes that lie 
within a specified distance of the proposed relocation site (based upon zip code 
centroid) and then identifying all reservists who both live within one of the 
identified zip codes (based upon the “ZIP” field of the GI8CWE file) and are 
assigned to the moving unit (based upon the “UIC” field of the GI8CWE file). 
Then the number available reassignments is divided by the total number of 
reservists assigned to the moving unit. 


TOTAL RESERVISTS[Total Number of Available Reservists from the Moving Unit] 
UIC_TOTAL[Total Number of Reservists Assigned Moving Unit] 


Units: Ratio 
Source File: GI8CWE, US_ZIPS(MapInfo) 
ACROPOLIS Table(s): G18Natl 


Query: AREA_ZIPCODE(MapInfo) 
SeEer ZIP CODE 
FROVES US ZIPS 
WHERE Obj Within objAreaBuffer 
OMeEiobny | ZIPSCODE 


G18(MapInfo) 

SPEPe SUC, LEFTS(ZIP35) ZIPCODE”. PRI “MOS” 
FROM GI8CWE 

WHERE Obj Within objG18Buffer AND PRI < *” 
ORDER BY UIC, ZIP 

INTO G18 


Area_G18_ ZIP 

SELECT DISTINCT UIC, ZIPCODE, COUNT(UIC) AS VIC_TOTAL 
FROM Gilg 

GROUP BY UWIC€eZIPCODE 

ORDER BY UIC, ZIPCODE 
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Yield Curve: 


TOTAL_RESERVISTS 
SELECT SUM(UIC_TOTAL) AS TOTAL RESERVISTS 
FROM Area G18 ZIP 
WHERE Area G18 ZIP.UIC = MovingUnit.UVIC 
AND Area _G18_ZIP.ZIPCODE = ANY (SELECT AREA_ZIPCODE.ZIP 
FROM AREA ZIPCODE) 


UVIC_TOTAL 

SEVECT 2ie lOTAL 

FROM — G18Natl 

WHERE G/18Natl.UIC = MovingUnit.UIC 


The current location will always receive a utility score of 0.0 on this Decision 
Parameter. For relatively close relocation sites, this function was made to be 
convex, assigning high utility values to alternatives that are close to the current 
location. 


Utility 
0 Potential reassignments / | 
Total number of reservists 
Max Utility: 1.0 Min Utility: 0.0 
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Decision Parameter 16. Distance to Area Maintenance Support Activity 


Definition: 


Calculation: 


Units: 


Source Data: 


Distance to the nearest Area Maintenance Support Activity (AMSA) is calculated 
as a proxy Decision Parameter for response time and support quality. 


The straight-line distance from the proposed site to the closest AMSA is 
calculated using a geocoded version of the AMSA file. 


DIST_AMSA[Determine distance to nearest AMSA Site] 
Miles 


AMSA 


ACROPOLIS Table(s); NONE 


Query: 


Yield Curve: 


DIST_AMSA(MapInfo) 

SEEECT * 

FROM AMSA 

WHERE Obj Withing ObjDistanceBuffer into TempRZA 
(Note: ObjDistanceBuffer is equal to 300 miles) 


SELECT Distance((CentroidX(Obj), SO? FacIDLat, FacIDLong, “mi’”) 
FROM  TempAMSA 
ORDER BY Distance INTO TempAMSA.Dist 


The desirability of a relocation site is relatively insensitive to small changes in 
distance for both close and distant AMSA sites. Little degradation in service is 
expected if the AMSA can have parts and technicians on site within a couple 
hours using a car or truck. It 1s possible that a trainer that breaks down in the 
morning may be operational for an afternoon training session. At approximately 
200 miles (assigned a 0.5 utility) it starts to become impractical to expect same 
day service and avoid an overnight stay. Eventually it becomes necessary to 
consider flying rather than driving which is likely to further reduce the 
responsiveness and effectiveness of the AMSA. 


1 


Utility 


0 Miles 500 


Max Utility: 0 Min Utility: > 500 


ey) 
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Decision Parameter 17. Distance to Nearest Equipment Concentration Site 


Definition: 


Calculation: 


Units: 


Source Data: 


Distance to the nearest Equipment Concentration Site (ECS) provides an 
indication of the training time that must be used to travel back and forth. 


The straight-line distance from the proposed site to the closest ECS is calculated 
using a geocoded version of the ECS file. 


DIST_ECS[Determine distance to nearest ECS] 
Miles 


ECS 


ACROPOLIS Table(s); NONE 


Query: 


Yield Curve: 


DIST. ECS(MapInfo) 

SeeeCT * 

FROM — ECS 

WHERE Obj Withing ObjDistanceBuffer into TempECS 
(Note: ObjDistanceBuffer is equal to 300 miles) 


SELECT Distance((CentroidX(Obj), Centroid Y(Obj), FacIDLat, FaclIDLong, “m1” 
FROM TempECsS 
ORDER BY Distance INTO TempECS.Dist 


The desirability of an Equipment Concentration Site is relatively insensitive to 
small changes in distance for both close and distant sites. Typically, a site that 
can be reached within an hour and ten minutes is not significantly less desirable 
than one that can be reached in ten minutes. An hour of one-way travel time is 
not normally considered to be excessive and allows for most of the time to be 
spent training on a one day training exercise. At approximately 60 miles 
(assigned a 0.5 utility) it starts to become impractical to expect useful training to 
be conducted on a day trip and avoid an overnight stay. Eventually it becomes 
necessary to consider flying rather than driving which is likely to further reduce 
the desirability of the ECS. 


U tility 


i 200 
Miles 


Max Utility: 0 Min Utility: > 200 


bo? 
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Decision Parameter 18. Facility Weekends Used 


Definition: Facility Weekend Usage provides the number of weekends per month that the 
facility is currently in use. This Decision Parameter treats a facility as a limited 
resource that is incrementally depleted as more units are assigned. Since most 
units require exclusive use of the facility one weekend every month, the number 
of weekends used normally corresponds to the number of units assigned and is 
typically limited to four. 


Calculation: This value is extracted from the “RS WKND PM” field of the COMPLEX file. 
WKND_USED[Retrieve Number Weekends Facility Used per Month] 

Units: Weekends per month 

Source Data: COMPLEX 

ACROPOLIS Table(s): COMPLEX __ 

Query: WKND_USED 
SELECT COMPLEX .FAC WKND USED 
FROM COMPLEX _ 
WHERE COMPLEX_.FAC_ID = ProposedFacility. FAC ID 

Yield Curve: Although some exceptions exist, a typical facility offers no utility to a relocating 
unit if all four weekends are already being used. Although most facilities with 
three units or less should be able to accommodate a new unit and might be viewed 
as having equal utility, other issues such as full time administrative space and 


available equipment storage space make a facility with fewer units currently 
assigned slightly more desirable. 


Utility 


0 Weekends / Month 4 
Max Utility: 0 Min Utility: 4 
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Decision Parameter 19. Available MOS from Closing Units 


Definition: 


Calculation: 


This Decision Parameter provides the number of reservists from closing units in 
the area of the proposed relocation site who possess a Military Occupational 
Specialty (MOS) needed by the relocating unit. These people provide a preferred 
pool of trained and qualified recruits. 


The number of personnel records (from the GI8CWE file) that meet all the 
following requirements are counted: 

1. The reservist 1s assigned to a unit that is scheduled to close (a 
TIER="5B” entry in the G17 file is used to produce a list of closing 
units). 

2. The reservist lives in a zip code in the area of the proposed relocation 
site. 

3. The reservist’s primary MOS is needed by the moving unit. 

If the three MOS groups with the largest number of members in the moving unit 
account for more than 50 percent of the total unit membership, then only those 
three MOS’s are considered. Otherwise all MOS’s required by the moving unit 
are considered as an MOS of interest. 


TOTAL _CLOS_ MOS[Total Number of Available Reservists from Area Closing Units with 


Units: 


Source File: 


MOS’s of Interest] 


Number of people 


COMMAND PLAND, G17, GI8CWE, GEOREF, US_ZIPS(MapInfo) 


ACROPOLIS Table(s): CMDPLAN, G17Natl, G18Natl, VALID UIC 


Query: 


Area-FACID List(MapInfo) 

SELECT FAC_ID INTO TempFACID 
FROM  GEOREF 

WHERE Obj Within objAreaBuffer 
ORDER BY FAC ID 

(Note: objAreaBuffer is equal to 300 miles) 


VALIPeUIC 

SELECT UIC, FAC_ID, UnitName, City, State, Zip 

FROM G17Natl 

WHERE G17Natl.UIC = ANY (SELECT CMD_PLAN.DIC 
FROM CMD _ PLAN) 
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Area-UIC List 

SELECT DISTINCT VIC INTO AREA UIC 

FROM VALID UIC 

WHERE VALID UIC.FAC ID=ANY (SELECT AREA FACID.FAC ID 
FROM AREA FACID) 


NoAssnxMOS 

SELECT MOS, COUNT(*) AS MOS COUNT INTO NoAssnxMOS 
FROM ~~ G18Natl 

WHERE G18Natl.UIC = MovingUnit.UIC 

GROUP BY MOS 

ORDER By COUNT(*) DESC 


MOS_ TOTAL 
SELECT SUM(MOS_COUNT) AS MOS_TOTAL 
FROM NoAssnxMOS 


MOS_TOP3 
SHEBCT TOP sMOS COUNT 
FROM NoAssnxMOS 


MOS_INTEREST 

IF MOS _TOP3/MOS_TOTAL < 50% 
SELECT MOS INTO MOS _ INTEREST 
FROM NoAssnxMOS 
ORDER BY MOS 

IF MOS_TOP3/MOS_ TOTAL > 50% 
SELECT TOP 3 MOS INTO MOS INTEREST 
FROM NoAssnxMOS 
ORDER BY MOS 


AREA CLOS UIC 
SELECT UIC 
FROM — G17Natl 
WHERE G17Natl. TIER = “5B” 
AND G17Natl.UIC = ANY (SELECT AREA_UIC.UIC 
FROM AREA UIC) 


AREA ZIPCODE(MapInfo) 
SELECT ZIPs@ODE AS ZIP 
FROM US ZIPS 

WHERE Obj Within objAreaBuffer 
ORDER BY ZIP CODE 
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Yield Curve: 


G18(MapInfo) 

Sere eee Ler ia(Zlrs, ZIPCODE, PRI “MOS” 
FROM GI8CWE 

WHERE Obj Within objG18Buffer AND PRI < “*” 
CRPER BY SUIC, ZIP 

INTO G18 


Area_G18 MOS 

SELECT DISTINCT UIC, ZipCode, MOS, COUNT(UIC) AS UIC_TOTAL 
INTO Area_G18 MOS 

FROM G18 

GROUP BY UIC, ZipCode, MOS 

ORDER BY UIC, ZipCode, MOS 


Area_G18_ ZIP 

SELECT DISTINCT UIC, ZIPCODE, COUNT(UIC) AS UVIC_TOTAL 
FROM G18 

GROUPIE Y SUIC ZIPCODE 

ORDER BD uIC; ZIPCODE 


TOTAL _CLOS MOS 
SELECT SUM(UIC_TOTAL) AS TOTAL CLOS MOS 
FROM ~~ Area G18 MOS 
WHERE Area G18 MOS.MOS = ANY (SELECT MOS _INTEREST.MOS 
FROM MOS_INTEREST) 
AND Area_G18_ ZIP.UIC = ANY (SELECT AREA CLOS_UIC.UIC 
FROM AREA CLOS_UIC) 
AND Area G18 ZIP.ZIPCODE = ANY (SELECT AREA ZIPCODE.ZIP 
FROM AREA ZIPCODE) 


The shape of this function assumes diminishing returns on the number of transfers 
available. Experience suggests for an average unit of 100 people, that it is 
unusual to expect more than a third of the members to transfer from closing units 
with the proper MOS. Of the reservists in this category, only half typically 
transfer, so a value of 60 personnel is assigned a utility of 0.9. The incremental 
value added by each additional person over 60 continues to drop until no marginal 


gain is expected over 250. 
] 


Utility 


0 People 250 


Max Utility: > 250 Min Utility: 0 
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Definition: 


Calculation: 


Decision Parameter 20. Available MOS IRR 


This Decision Parameter provides the number of Individual Ready Reserve 
members who live in the area of the proposed relocation site and who possess a 
Military Occupational Specialty (MOS) needed by the relocating unit. These 
people provide a preferred pool of trained recruits. 


The number of IRR members who possess an MOS needed by the moving unit 
and who live in the area of the proposed relocation site (based upon the zip code 
of their home of record in the IRR file) are counted. If the three MOS groups with 
the largest number of members in the moving unit account for more than 50 
percent of the total unit membership, then only those three MOSs are considered. 
Otherwise all MOSs required by the moving unit are considered as an MOS of 
interest. 


TOTAL_IRR_MOS[Total Number of Available Reservists from the IRR with MOS’s of 


Units: 


Source File: 


Interest] 
Number of People 


IRR, GI8CWE 


ACROPOLIS Table(s): G18Natl, 


Query: 


NoAssnxMOS 

SELECT MOS, COUNT(*) AS MOS COUNT INTO NoAssnxMOS 
FROM G18Natl 

WHERE G18Natl.UIC = MovingUnit.UIC 

GROUP BY MOS 

ORDER BY COUNT(*) DESC 


MOS TOTAL 
SELECT SUM(MOS_ COUNT) AS MOS_TOTAL 
FROM NoAssnxMOS 


MOS_TOP3 
SELECT TOP 3 MOS COUNT 
FROM NoAssnxMOS 


MOS_INTEREST 

IF MOS_TOP3/MOS_TOTAL < 50% 
SELECT MOS INTO MOS_INTEREST 
FROM NoAssnxMOS 
ORDER BY MOS 
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Yield Curve: 


IF MOS. TOP3/MOS_ TOTAL > 50% 
SELECT TOP 3 MOS INTO MOS_INTEREST 
FROM NoAssnxMOS 
ORDER BY MOS 


IRR(MapInfo) 

SELB Cine emai SICEFIO(PMOS, 3) MOS” 

FROM IRR 

WHERE Obj Within objAreaBuffer and ZIPC << *“” AND PMOS <=“ 
ORDER BY ZIPC 

INTO IRR 


TOTAL IRR MOS 

SELECT SUM(UIC TOTAL) AS TOTAL_CLOS MOS 

FROM IRR 7 

WHERE IRR.MOS = ANY (SELECT MOS_INTEREST.MOS 
FROM MOS. INTEREST) 


IRR members represent preferred recruits for less than half of the positions of a 
typical moving unit (approximately 40 out of 100) because of issues such as 
seniority and changes in the skills associated with an MOS. The success rate of 
recruiting IRR members is approximately 1 out of 100, so 4000 IRR members in 
the area of the relocation site are required to provide sufficient market to fill the 
40 positions. The value of 4000 is assigned the average utility value of 0.5. As 
the IRR market increases it exceeds the needs of the moving unit and makes the 


limited recruiting efforts marginally less effective. 


1 


Utility 


0 
peiate 25,000 


Max Utility: > 25,000 Min Utility: 0 
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APPENDIX C. CONCEPTUALIZATION PHASE ARTIFACTS. 


This appendix contains the artifacts that were documented upon completion of the 


Concept-to-Code (C2C) Conceptualization Phase. 


Index 
1. Conceptual Overview Diagram.................. 17] 
2. ARIES Data Flow Diagramy:.2...............+.- 173 
5. User Intetace inten Payout... iS 
A wser intertace Final Layott yee. ay 
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Conceptual Overview Diagram. 
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ARIES Process Flow Diagram. 
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User Interface Interim Layout. 
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User Interface Final Layout. 
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APPENDIX D. ARIES SDSS CODE LISTINGS. 


This appendix contains the detailed code listings of each Visual and Map Basic module 


that comprises the ARIES SDSS prototype application. 


Index 

Module 1. SUBMAIN PROCEDURE. ..vsessssssssssessssssssecessssssssesssssssusesssssssesesssssvessusnesessisesssnsesee 18] 
Module 2. SDSS USER INTERFACE wssesscsssssssescsssssssssesssssssessssssssseesssssssssessnsseectseveessssnesenseeen 183 
Module 3. ARIES PUBLIC DECLARATIONSG.....ssssssssssssssssssssssssssssssssessssssuesssssetsssssuesesssnseeen 213 
Module 4. ARIES PROCEDURES LIBRARY .....ssssssssssssssssssssssssssessssssssessssuessssstescessescerseveeen 221 
Module 5. OLE PROCEDURES LIBRARY ...ssscsssssssssessssssssssssseesssssssseecsnssssisessssneesssssneessesseesee 231 
Module 6. OLE OBJECT CLASS DEFINITION. ..ssssssssssssessssssssesssssssssesssssseessssesessssseessssvesssee 239 
Module 7. MAPBASIC PUBLIC DECLARATIONS .......ssssssssssssssssssssseesssssseesssseeessssseesssseesen 243 
Module 8. SPATIAL SELECTION PROGRAM ...vscssssessssssssssssssssssssessssssssesessssussesssssetessnseeseen 257 
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Module 1. SUBMAIN PROCEDURE 


Purpose: Submain Procedure immediately executes upon ARIES application loading in 
memory. It is a standard Visual Basic initialization procedure. For the purposes 
of the ARIES SDSS, the procedure loads the splash screen for 30 seconds, 
initializes all OLE connections with MapInfo components and displays the main 


SDSS User Interface form. 


Source Type: Visual Basic for Applications 


Source File: SUBMAIN.BAS 

Code Listing: 
Attribute VB_Name = "SubMain"” 
COD clOnmexp rel t 


‘Allocate Module Variables 


Public 
Public 
Public 
Public 


Public 
Public 
Public 


Public 
Public 
Public 


bValidUIC As Boolean 
bXS@LQueryDone As Boolean 
bLDWactive As Boolean 
bGEOREF_Exists As Boolean 


bMNap@ueryActive As Boolean 
bNapInfoRunning As Boolean 
bMapBasicRunning As Boolean 


iPropFacIDctr As Integer 
iProgressIndicator As Integer 
iStatusBarMNax As Integer 


"WinAPI32 window handles 


Public 
Public 


Public 


Public 
Public 


iLDWwinID As Long 
iMapInfoWinID As Long 


aFacID(4) As String * 5 


cQueryStartTime As String * & 
cProcName As String 


‘Allocates Aries Measures Table 


Public 


cMNovUic As MovingUnit_Type 


"Allocate Database Objects 


Public 
Public 
Public 


Public 
Public 
Public 
Public 


Public 


cProcName = 


dbAcropolis As Database 
dbTeliko As Database 
dbWorkspc As Workspace 


objExcel As Object 

objGeoSelect As Object 
objGeoQuery As Object 
objCallback As Object 


Sub Main() 
"SUBTHAIN" 


On Error colo EHO Sublain 
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Set objExcel = Nothing 

Set objGeoSelect = Nothing 
Set objGeoQuery = Nothing 
Set objCallback = Nothing 


‘Initialize all Boolean FLAGS to Default value- 


bValidUIC = False 
bLDWactive = False ‘LDW Activation Flag 


bS@LaueryDone = False 
bGEOREF_Exists = True 


bMapQueryActive = False 'MapBasic Activation Flag 
bNapBasicRunning = False 
bMapInfoRunning = False 


‘Initialize API hWnd ID variables 
iLDWwinID = O 
iMapInfoWinID = O 


"Commence loading ARIES Application 
Load frmSplashScrn 


'bLDWactive = OpenLDWobject 


'Call ImportLDWdata 
'Call ViewLDWmatrix 


Exit Sub 


EH _SubMain: 'Submain Error Handler 
Select Case Err-Number 


Case ERR_ObjectUnloaded 
Call DisplayMessage(OLEfailedMSG. vbExclamation, vb0KOnly, 


con0OLEcaption) 
End 


Case Else 'Trap all other Errors & Report 
Call OutputERROR_LOG 
Resume Next 


Enoao Select 
End Sub 


Public Sub DisplayUserInterface() 
cProcName = "Display_User_Interface™ 


With frmAriesMain 


-Visible = True 
-WindowState = vbMaximized 
- Show 
End With 
Screen-MousePointer = vbDefault 


End Sub 
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Module 2. SDSS USER INTERFACE 


Purpose: Contains all procedures, business rules, and logic for controlling the ARIES U/I 
Source Type: Visual Basic for Applications 

Source File: USERINTERFACE.FRM 

Code Listing: 


Attribute VB_Name = "frmAriesMain" 
Attribute VB _Creatable = False 
Attribute VB_Exposed = False 


Option Explicit 


Private Sub mnuFOpen_Click() 
Dim iLDW_hWnd As Long 


On Error GoTo EH_File0Open 


digLDWFiler-Flags = cdlOFNPathMustExist + cdlOFNFileMNustExist 
digLDWFiler-InitDir = App-Path & FILE_LDW_ArchiveDir 
dlgLDWFiler-.filename = vbNullString 

digLDWFiler-Show0pen 


iLDW hWnd = FindWindow(Class_LDW. vbNullString) 
If iLDW hWnd = O Then Call OpenLDWobject 


ShowWindow iLDW hWnd. SW Minimum 
ShowWindow iLDW hWnd. SwW_Normal 


SendKeys "“FN™, True 

SendKeys "4%F0O", True 

SendKeys dlgLDWFiler-filename, True 

SendKeys "“{ENTER}", True 

DoEvents 

SendKeys "Z%VMN~", True 
EX1t Sup 
EH FileOpen: 

If Not Err-Number = cdlCancel Then Call OutputERROR_LOG 
End Sub 


Private Sub mnuFSave_Click() 
Dim iLDW_hWnd As Long 


On Error GoTo EH_FileSave 

digLDWFiler.Flags = cdlOFNPathNustExist 
dlgLDWFiler.InitDir = App-Path & FILE_LDW_ArchiveDir 
digLDWFiler-filename = vbNullString 

digL DWFiler.ShowSave 


iLDW_hWnd = FindWindow(Class_LDW, voNullString) 
If iLDW hWnd = O Then Call OpenLDWobject 


ShowWindow iLDW_ hWnd. SW_Minimum 
ShowWindow iLDW hWnd. SW Normal 
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SendKeys "“FA", True 

SendKeys dlgLDWFiler-filename, True 
SendKeys "{fENTER}", True 

DoEvents 


AppActivate ARIES_Application 
EXiI€ Sub 


EH_FileSave: 

If Not Err-Number = cdlCancel Then Call OutputERROR_LOG 
Enoe sub 
Private Sub mnuFCloseLDW_Click() 


If VerifyLDWobjectConnection(LDWactiveMNSG) Then 
SendKeys "“FX", True 


DoEvents 
mnuVImport-Enabled = True 
tbararies-Buttons("import”)-Enabled = True 
Eno if 
End Sub 


Private Sub mnuFCloseMap_Click() 
Dim iMapInfo_hwWnd As Long 


iMapInfo_hWnd = FindWindow(Class_MapInfo. vbNullString) 
If iMapInfo_hwWnd = O Then 

Call DisplayMessage(APIfailedMNSGi vbCritical, vbOKOnly. conAPIcaption) 
Else 

bMapInfoRunning = False 

ShowWindow iMapInfo_hWnd. SW Minimum 

ShowWindow iMapInfo_hwWnd.» SW Normal 


SendKeys "“%FX", True 
End If 
End Sub 


Private Sub mnuFSetup_Click() 
Dim iLDW_hWnd As Long 


iLDW_hUnd = FindWindow(Class_LDW. vbNullString) 
If iLDW_hWnd = O Then Call OpenLDWobject 


ShowWindow iLDW_ hWnd. SW Minimum 
ShowWindow iLDW hWnd. SW Normal 


SendKeys "“%FR", True 
End Sub 


Private Sub mnuFExit_Click() 
Call cmdExitBtn_Click 
End Sub 


Private Sub mnuVHier_Click() 


If Not mnuVImport-Enabled Then 
If VerifyLDWobjectConnection(APIfailedMSG) Then 
SendKeys "%We", True 
SendKeys "%H{down}G", True 
End If 
Else 
Call DisplayMessage(NoFacilityComparedMSG, vbInformation., _ 
vbOKOnly. conAPIcaption) 
Ene okt 
End Sub 


Private Sub mnuVMatrix_Click() 
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If VerifyLDWobjectConnection(APIfailedNSG) Then 
SendKeys "Z“VMN~", True 
DoEvents 
End If 
End Sub 


Private Sub mnuVSensitivity_Click() 


If VerifyLDWobjectConnection(APIfailedNSG) Then 
SendKeys "“SY", True 
Ena. it 
End Sub 


Private Sub mnuVStackBar_Click() 


If VerifyLDWobjectConnection(APIfailedNSG) Then 
SendKeys "%SB", True 
DoEvents 
SendKeys "~", True 

End If 


End Sub 
Private Sub mnuVImport_Click() 


If bS@LQ@ueryDone Then 
tbararies-Buttons("import™)-Enabled = False 
mnuVImport-Enabled = False 
fraLDWcntrl-Visible = False 


bLDWactive = OpenLDWobject 
Call ImportLDWdata 
Call ViewLDWmatrix 
Else 
Call DisplayMessage(NoFacilityComparedMNSG. vbInformationa _ 
vbOKOnly.i conAPIcaption) 
End If 
End Sub 


Private Sub mnuRPrintAll_Click() 
Dim iMsgBxResponse As Byte 


iMsgBxResponse = DisplayMessage(PrinterReadyMSG.1 vbExclamationi _ 


vb0K.i conAPIcaption) 


If iMNsgBxResponse = vbOK Then 
If VerifyLDWobjectConnection(LDWactiveNSG) Then 
Call TimeDelay(Time$(). 2) 
Call ActivateLDWReports 
AppActivate ARIES_Application 
Ene ii 
End Lf 
End Sub 


Private Sub txtPropFacID_Change() 


With txtPropFacID 
If (€. Text = "") Or CLenG-Text) < 5) Then 
-Text = -List(0) 
Ende 
End With 


End Sub 
Private Sub cboUIC_Change() 
With cboUIC 


If ¢(.-Text = ™") Or (Len(-Text) < b) Then 
-1Text = -List(D) 
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Bima fi 
End With 


End Sub 


Private Sub cmdAcceptBtn_Click() 
Dim iFacIDctr As Byte 
Dim Index As Byte 
Dim 1 As Byte 
Dim iConfirmResponse As Byte 
Dim cMsg As String 


If bValidUIC Then 
iFfacIDctr = CountFacIDs 
For i= 0 To 3 
If txtFacID(i)-Tag = "NOT USED” Then 
Index = 1 
Exit For 
End If 
Next i 


If iFacIDctr < 4 Then 
txtFacID(Index)-Text = txtPropFacID-Text 


Else 
cMsg = “Maximum number of Facilities Selected-" & vbCr & vbCr & _ 
"Do You Wish to Delete Facility {" & txtFacID(3)-Text & _ 


iConfirmResponse = MsgBox(cMNsg.i vb@uestion + vbYesNo. 
conFacilityErrorCaption) 
If iConfirmResponse = vbYes Then 
txtFacID(3)-Text = txtPropFacID-Text 
Ena: If 
End. it 


Else 
If Not cboUIC-Text = "-NONE-" Then 
txtMovUIC.Text = cboUIC-Text 
Else 
cMsg = “Facility {" & txtPropFacID & "} has no Units Assigned." 
Call DisplayMessage(cMsg. vbExclamation.a vb0OKOnly.1 conUICcaption) 
Enidiadan 
Brea lt 
End sub 


Private Sub cmdAriesBtn_Click() 
Call CompareFacilities 

End Sub 

Private Sub cmdClearBtn_Click() 


‘Reset all controls and elements of the User Interface to Defaults 
Call InitFacilityElements ‘Reset controls to Defaults 
Call InitMNenuBar 

Call InitToolBar 

Call InitAriesControls 

Call InitStatusBar 

Call InitGIStreeview 

Call TrafficLight(vbRed) 


If AriesStatusBar-Panels(5)-Text = "Custom Tool : FacID Info™ Then 
cmdAcceptBtn-Enabled = True 
End If 


bMapBasicRunning = False 
bS@L@ueryDone = False 


txtNovUIC-SetFocus fSet cursor at MOVUIC txtbox 
Refresh 
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End Sub 


Public Sub cmdExitBtn_Click() 
cProcName = “ExitBtn_Click"” 


Dim iConfirmResponse As Byte "'MSGBox Response Variable 


If bS@L@ueryDone Then 
"Display Confirm CompactDatabase Messagebox 
iConfirmResponse = NsgBox(CompactDatabaseNSGi _ 
vb@uestion + vbYesNo + vbApplicationModal. conFileCaption) 


‘Evaluate User Response 
If iConfirmResponse = vbYes Then 'Compact Database 
Call CompactAriesDataBase 
Endl? 
Ena If 


If Not (objGeoSelect Is Nothing) Then 
ob jGeoSelect-SetCallback Nothing 
ene If 


Set objGeoSelect = Nothing 
Set objCallback = Nothing 
Set objGeo@uery = Nothing 
Set objExcel = Nothing 


Set dbAcropolis = Nothing 
Set dbTeliko = Nothing 


Unload Me ‘Close User Interface 
End Sub 
Private Sub cmdYesBtn_Click() 


Call mnuVImport_Click 
End Sub 


Private Sub cmdNoBtn_Click() 
Dim iConfirmResponse As Byte 
Dim cNsg As String 


cMisg = "Do You Wish to Discard Facility Comparisons?" 
iConfirmResponse = MNsgBox(cNsg. vb@uestion + vbYesNo. conS@Lcaption) 
If iConfirmResponse = vbYes Then 
fraLDWcntrl-Visible = False 
Call InitMNeasuresGrid(Q) 
Call cmdClearBtn_Click 
End If 
End Sub 


Private Sub spinFacIDbtn_SpinDown() 
Dim iComboBoxNax As Integer 


With txtPropFacID 
iComboBoxMax = -ListCount - ] 
If Not (iPropFacIDctr = iComboBoxMax) Then 
1PropFacIDctr = iPropFacIDctr + ] 
-Text = -List(iPropFacIDctr) 
Call LoadPropFacilityUICBox(.Text) 
Call DisplayPropFacilityUnitNames 
End if 
End With 
End Sub 


Private Sub spinFacIDbtn_Spinup() 


With txtPropFacID 
If Not iPropFacIDctr = O Then 
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iPropFacIDctr = iPropFacIDctr - 1 
-Text = -List(iPropFacIDctr) 

Call LoadPropFacilityUICBox(-Text) 
Call DisplayPropFacilityUnitNames 


Endilf 
End With 
Enom sub 
Private Sub tbarAries_ButtonClick(ByVal Button As Button) 
Dim iLDWhWnd As Long "API window handler 
Dim iMsgBxResponse As Byte 'Messagebox response variable 


Select Case Button-Key 
Case "selector" 
ob jGeoSelect-RunMNenuCommand M_TOOLS_SELECTOR 
AriesStatusBar-Panels(5)-Text = "MapInfo Tool : Selector" 


Case "grabber" 
ob jGeoSelect-RunMenuCommand M_TOOLS_RECENTER 
AriesStatusBar-Panels(5)-Text = "MapInfo Tool : Grabber" 


Case "expand" 
ob jGeoSelect-RunMenuCommand M_TOOLS_EXPAND 
AriesStatusBar-Panels(5).Text = "MapInfo Tool +: Zoom-In" 


Case “shrink” 
objGeoSelect-RunMenuCommand M_TOOLS_SHRINK 
AriesStatusBar-Panels(5)-Text = "MapInfo Tool : Zoom-0Out" 


Case. infotoo. 
objGeoSelect-Do "Run Menu Command ID 501" 
AriesStatusBar-Panels(5)-Text = "Custom Tool : FacID Info" 
pnlFacilityInfo-Enabled = True 
cboUIC-Visible = True 
cboUIC-Clear 


txtPropFacID-Visible = True 
txtPropFacID-Clear 
cmdAcceptBtn-Enabled = True 


Case "mapinfo" 

If Not bMapInfoRunning Then 
iMapInfoWinID = Shell (FILE_MapInfo. vbNormalFocus) 
SendKeys "~". True 
SendKeys "4%FL". True 
iMapInfoWinID = FindWindow(Class_MapInfo. vbNullString) 
If iMapInfoWinID = O Then 

Call DisplayMessage(APIfailedMSGi vbCritical. vbOKOnly. _ 
conAPIcaption) 

End If 
bMapInfoRunning = True 
mnuFCloseMap-Enabled = True 

Else 
Showwindow iMapInfoWinID. SW_Minimum 
ShowWindow iMapInfoWinID. SW_Normal 
SendKeys "“FX". True 
bMapInfoRunning = False 
mnuFCloseMap-Enabled = False 

Binet § 


Case "ldw” 
iLDWhWnd = FindWindow(Class_LDW. vbNullString) 
If iLDWhWnd = O Then 
bLDWactive = OpenLDWobject 
Else 
iMsgBxResponse = DisplayMessage(LDWresetMSG.i vbQuestion.a vb0K, 
conAPIcaption) 
If iNsgBxResponse = vb0OK Then 
Call ResetLDWobject 
AppActivate ARIES_Application 
tbararies-Buttons("import™)-Enabled = True 
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fraLDWcntrl-Visible = True 
mnuVImport-Enabled = True 
End If 
End If 


Case "import”™ 
Call mnuVImport_Click 


Case "file" 


Case "report" 
Call mnuRPrintAll_Click 


Cassie "matrix" 
Call mnuVMatrix_Click 


Case “hierarchy” 
Call mnuVHier_Click 


Case "dynamic" 
Call mnuVSensitivity_Click 


Case "stacked" 
Call mnuVStackBar_Click 


Case “about” 


End Select 
End Sub 


Private Sub cmdClearBtn_GotFocus() 


"Display CLEAR button hint on main status bar 
AriesStatusBar-Panels(1)-Text = ClearButtonNSG 
ena Sub 


Private Sub cmdAriesBtn_GotFocus() 


"Display GENERATE button hint on main status bar 
AriesStatusBar-Panels(1).-Text = LaunchAriesMSG 
End Sub 


Private Sub cmdExitBtn_GotFocus() 


"Display EXIT Button hint on main status bar 
AriesStatusBar-Panels(1])-Text = ExitButtonMNSG 
End Sub 


Private Sub txtMNovUIC_GotFocus() 
AriesStatusBar-Panels(1l1)-Text = MovUICstatbarMSG 
End Sub 


Private Sub txtFacID_GotFocus(Index As Integer) 
AriesStatusBar-Panels(1)-Text = FacilityStatbarNSG & CStr(Index + 1) 
lstbxFacID(Index).-Visible = True 

End Sub 


Private Sub txtMNovUIC_LostFocus() 


If (Len(txtMovUIC) = O) And txtMNovUIC-Tag = "VALID" Then 
Call TrafficlLight(vbRed) 
bValidUIC = False 
txtMNovUIC-Tag = "NOT USED" 
lstbxNovUIC-Clear 
Endl ( 
End Sub 


Private Sub txtFacID_LostFocus(Index As Integer) 
Dim iFacIDctr As Byte 


hoo 


If (Len(txtFacID(CIndex)) = OG) And txtFacID(Index)-Tag = "VALID™ Then 
txtFacID(Index).Tag = "NOT USED" 
lstbxFacID(Index)-Clear 
lstbxFacID(Index)-AddItem "* * DELETED x x" 

End If 


iFacIDctr = CountFacIDs 
If iFacIDctr = O And txtMNovUIC.Tag = "VALID" Then 
Call Trafficlight(vbYellow) 
ElseIf txtMovUIC-.-Tag = "NOT USED" Then 
Call TrafficLight(vbRed) 
End If 
End Sub 


Private Sub txtFacID_Change(Index As Integer) 
Dim bValidFacID As Boolean 
Dim bValidUnit As Boolean 
Dim cf aclpeaAseString * 5 
Dim cMsgText As String 
Dim rsValidateFacID As Recordset 
Dim rsValidateUnit As Recordset 


cMsgText = ™" 
bValidFacID = False 
bValidUnit = False 


'Open Validation Table 


Set rsValidateFacID = dbAcropolis-0penRecordset(Tbl_ValidateUIC. db0penTable, 


dbRead0nly) 
rsValidateFacID-Index = "“FACID" 


If bGEOREF_Exists Then 

Set rsValidateUnit = dbAcropolis-0penRecordset(Tbl_ValidateUnit, 
db0penTable. dbReadOnly) 

rsValidateUnit-Index = "FACID" 
Enda 


"Automatically determine if FACID entered 
If Len(txtFacID(Index)) = 5 Then 
cFacID = txtFacID(Index)-Text 
bValidFacID = ValidateFacID(cFacID, rsValidateFacID) 
If bDGEOREF_Exists Then 
bValidUnit = ValidateFacID(cFacID. rsValidateUnit) 
End oa 


If bValidFacID Or bValidUnit Then ‘Valid FACID exists 
If bValidFacID Then 
Call LoadFacilityListBox(Index., rsValidateFacID., O) 
Else 
Call LoadFacilityListBox(Index. rsValidateUnit, 1) 
End If 


aFacID(Index + 1) = cFacID 
txtFacID(Index)-Tag = "VALID" 


If Not (Index = 3) Then ‘Prep next Facility Frame 
Call InitializeFacilityFrame(Index + 1) 
Call TrafficLight(vbGreen) 


Else ‘Last Facility Frame used 
cmdAriesBtn-SetFocus 
Encl 
Else ‘Facility ID invalid 


cMsgText = "FacID: {" & cFacID & FacIDinvalidMSG 
Call DisplayMessage(cMsgText. vbInformations vb0OKOnly. 
conFacilityErrorCaption) 
txtFacID(Index)-Text = "" 
txtFacID(Index).-Tag = "NOT USED" 
Enodrrf 
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Else 
AriesStatusBar-Panels(1)-Text = FacIDlengthMSG 


End If 


'Delete Recordset Object 
rsValidateFacID-Close 

Set rsValidateFacID = Nothing 
rsValidateUnit-Close 

Set rsValidateUnit = Nothing 


End] sug 


Private Sub txtMovUIC_Change() 
cProcName = "TXTMOVUIC_CHANGE" 
Dim cMsgText As String 
cMsgText = ™" 

bValidUIC = False 


If Len(txtMovUIC) = b Then 
eriovllie-ULG = txtNovllG-Text 
bValidUIC = ValidateMovUIC(cMovUic-UIC) 


If bValidJUIC Then 
aFacID(O) = cMovUic.FacID 
Call LoadMovUIClistbox(cMovUic) 
Call InitializeFacilityFrame(Q) 
cmdClearBtn-Enabled = True 
txtMovUIC-Tag = "VALID" 


‘Set the appropiate data integrity light 
If Not txtFacID(Q)-Tag = "VALID" Then 
Call TrafficLight(vbYellow) 


Else 
Call TrafficLight(vbGreen) 
End If 
Else "Unit ID Code invalid 


cMsgText = "UIC: {" & cMovUic-UIC & MovUICinvalidMSG 
Call DisplayMessage(cMsgText.i vbInformationa vbOKOnly.1 conUICcaption) 
txtMovUIC-Text = ™" 
Exctnovure-Tag = “NOT USED™ 
Pmideely 


Else 
AriesStatusBar-Panels(1)-Text = MovUIClengthNSG 
End If 
End Sub 


Private Sub txtFacID_KeyPress(Index As Integer. KeyAscii As Integer) 
KeyAscii = KeyUpperNumeric(KeyAscii) 


End Sub 


Private Sub txtMovUIC_KeyPress(KeyAscii As Integer) 
KeyAscil = KeyUpperNumeric(KeyAsciil) 


End Sirs 
Private Function CountFacIDs() As Byte 
Dim i As Byte ‘Loop Variable 
CountFacIDs = Q fInitialize function 
Fore. = 0 lood ‘Loop thru Facility choices 


"Evaluate Facility Frame TAG field for Confirmed Selections 
If (txtFacID(1)-Tag = "“VALID™) Then 
CountFacIDs = CountFacIDs + 1 ‘increment counter 
Emiciaelen 
Next i 
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End Function 
Private Sub Form_Load() 


‘Establish DEFAULT position for User interface 
Me-Top = 9 
Me-Left = Q 


fInitialize Acropolis Database 

Set dbWorkspc = DBEngine-Workspaces(Q) 

Set dbAcropolis = dblworkspc-OpenDatabase(App-Path & FILE_Acropolis) 
‘Set dbTeliko = dbWorkspc-0OpenDatabase(App-Path & FILE_Teliko) 

Set dbMeasures = Workspaces(Q)-OpenDatabase(App-Path & DB_MEASURES) 


Set rsMeasures = dbMeasures-OpenRecordset("Measure Values", db0OpenTable) 


rsMeasures-Index = "FAC_ID" 
‘Set rsProblems = dbMeasures-OpenRecordset("Problems". db0OpenTable) 


‘Initialize the USER INTERFACE and Form Controls 
Call InitMenuBar 

Call InitToolBar 

Call InitMaps 


Call InitFacilityInfoPanel 
Call InitFacilityElements fInitialize Default values 
Call InitGIStreeview 


Call TrafficLight(vbRed) 
Call InitAriesControls 
Call InitStatusBar 


Me-Show ‘Display form to User 

Me-WindowState = vbMaximized 

Refresh 

Screen-MousePointer = vbDefault ‘reset mousepointer to arrow 

txtMovUIC-SetFocus ‘set cursor at MOVUIC txtbox 
End Sub 


Private Sub InitializeFacilityFrame(ByVal Index As Integer) 
cProcName = "INITIALIZE_FACILITY_FRAME” 


If Not Index = 4 Then 
fraFacility(Index)-Enabled = True 
With txtFacID( Index) 


-Visible = True 
-Enabled = True 
-SetFocus 
End With 
End If 
End Sub 


Private Sub InitMenuBar() 
cProcName = “INIT_MENU_BAR” 


mnuVImport-Enabled = True 
mnuFCloseLDW-Enabled = True 


End Sub 


Private Sub InitToolBar() 
cProcName = “INIT_TOOL_BAR"” 


tbararies-Buttons("import™)-Enabled = True 
tbararies-Buttons("report™).Enabled = True 
tbararies-Buttons ("matrix") -Enabled = True 


tbararies-Buttons("hierarchy™) -Enabled = True 

tbararies-Buttons("dynamic™) -Enabled True 

tbararies-Buttons("stacked”")-.Enabled True 
End Sub 
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Private Sub InitMaps() 
cProcName = "INIT_MAPS" 
Dim bMapSelectActive As Boolean 


'Load MapInfo Objects for GeoRuery Display 
bMap@ueryActive = Connect0OLEobjectl(objGeotuery., "Mapinfo-Application”™) 
If bMap@ueryActive Then "Ensure Application loaded 
ob jGeoQuery-Do "Set Application Window ™ & pictMap@ueryFrame-hwnd 
objGeotuery-Do "Set Next Document Parent ™ & pictMap@ueryFrame-hwnd & " 
Style 1" 
Enc t 


‘Load MapInfo Objects for GeoSelect Display 
bMapSelectActive = Connect0OLEobject(objGeoSelect.i "Mapinfo-Application™) 
If bMapSelectActive Then "Ensure Application loaded 
objGeoSelect-Do "Set Application Window ™ & pictMapSelectFrame.hwnd 
objGeoSelect-Do "Set Next Document Parent ™ & pictMapSelectFrame-hwnd 8 ” 
Style ly ~ 
Ec lat 


"Create an Instance of the OLE Callback Object 
Set objCallback = New clsOLECallback 
ob jGeoSelect-SetCallback objCallback 


‘Load & Display the Maps with labels 
Call OpenUS_StatesLayer 

Call OpenUSARC_GeoRefLayer 

Call OpenStateCapitalsLayer 

Call OpenMajorCityLayer 

Call DisplayMapLabels 

Call PositionMap 


"Modify the MapInfo Right-Click Menu 
Call InitializeMapInfoMenu 

Call InitializeMNapInfoToolbar 

Call InitializeMNapInfoStatusBar 


‘Set Zoom-In tool as the Default 
objGeoSelect-RunMenuCommand M_TOOLS_EXPAND 
AriesStatusBar-Panels(5)-Text = "MapInfo Tool : Zoom-In" 
Refresh 

End Sub 


Private Sub InitMeasuresGrid(ByVal Index As Byte) 
cProcName = "INIT_MEASURES_GRID” 
Dim i As Integer 
Dim iGridColumnWidth(conMaximumColumns) As Integer 
Dim cGridRowLabel(conTotalMeasures) As String 


‘Load Column Width array 


iGridColumnWidth(0O) = conOneColumnWidth 
iGridColumnWidth(1) = conTwoColumnWidth 
iGridColumnWidth(2) = conThreeColumnWidth 
iGridColumnWidth(3) = conFourColumnWidth 
iGridColumnWidth(4¥) = conFiveColumnWidth 


‘Load Row Labels array 


cGridRowLabel(0) = conMeasureD 
cGridRowLabel(1) = conMeasurel 
cGridRowLabel(cd) = conMeasurec 
cGridRowLabel(3) = conMNeasure3 
cGridRowLabel(4) = conMeasure4Y 
cGridRowLabel(5) = conMNeasureS 
cGridRowLabel(b) = conMeasureb 
cGridRowLabel(?) = conMeasure? 
cGridRowLabel(&) = conMeasured& 
cGridRowLabel(9) = conMeasured 


cGridRowLabel(1l0) = conMeasurelO 
cGridRowLabel(1ll) = conMeasurell 


fo 


cGridRowLabel (le) conMeasurele 


cGridRowLabel(13) = conMNeasurel3 
cGridRowLabel(14) = conMeasurel4 
cGridRowLabel(15) = conMeasurelS 
cGridRowLabel(1lb) = conMNeasurelb 
cGridRowLabel(17) = conMeasurel? 
cGridRowLabel(18) = conMeasureld 
cGridRowLabel(19) = conMNeasurel4 
cGridRowLabel(20) = conMeasurecD 


With gridMNeasures 


'EFstablish Grid default parameters 


-Visible = True 
<Fontssize. = 6 


‘Reset Grid if data present 


-Cols = Jj 
-Cols = e 
-FixedCols = J] 
-FixedRows = ] 


‘Set rows and columns. 
-Rows = el] 
-Cols = Index +e 


'Set Fixed Column Label size 
-ColWidth(0) = 1370 


'Set remaining columns width dependent on number of Facilities 


For i= 1] To Index + J] 
-ColWidth(i) = 


-ColAlignment(i) = 1 


iGridColumnWidth(Index ) 


Next 1 

‘Display Grid Row Labels in Column J] 
gridMeasures-Col = U0 

For: 1. = OU" To cul 


gridMeasures-Row = i 
gridMNeasures-Text = 
Next i 
End With 
End Sub 


Private Sub InitFacilityInfoPanel() 


cProcName = 


1PropFacIDctr = 0 


pnlFacilityInfo-Enabled = False 
txtPropFacID-Visible = False 
cboUIC-Visible = False 
spinFacIDbtn-Visible = False 
Refresh 

End Sub 


Private Sub InitFacilityElements() 
cProcName = 


Dim i As Byte 
cMovUic-UIC = ™" 
cMovUic-FacID = 


vty 


tabAriesMap-Tab = 0 
tabAriesUI.Tab = 0 


fraNovUIC-Tag = "NOT USED" 


fraNovUIC-Font-Size = 10 
txttiovUlC-Text = *" 
txtMovUIC-Enabled = True 


PN tonA Clie SEE ENENTS- 
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cGridRowLabel (1) 


"INIT_FACILITY_INFO_PANEL” 


‘Loop Variable 


‘Set MOVUIC variable to NULL 


‘Display GeoSelection Map 
‘Display Facility Select Tab 


‘Initialize Facility Frame TAGs 
‘Set Font Size to default 
‘Clear MOVUIC text box 

‘Allow user input 


lstbxMovUIC-.Clear 


For-1 = 0 less 
fraFacility(i)-Enabled = False 
fraFacility(i)-Font-Size = 4 
txtFacID(1)-.Text = ™" 
txtFacID(i)-Visible = False 
lstbxFacID(i)-Clear 
lstbxFacID(i)-Visible = False 
txthaciIpt1)-lag = “NOT USED” 

Next i 


For 1 = @Q@ To 4 
fraStatus(i)-Enabled = False 
fraStatus(i)-Font-Size = 10 
txtstacbusc1)-lrext = "% 
txtStatus(i)-Visible = True 
txtStatus(i)-Enabled = True 
lstbxStatus(i)-Clear 
lstbxStatus(i)-Visible = False 
aFacID(i) = ™" 

Next i 


txtPropFacID-Clear 
cboUIC.Clear 
lstbxUnitName.- Clear 
EXECity-~lexe — —7 
txtState.-Text = ™" 
txtZipCode-Text = ™" 


‘Empty listbox 


‘Loop thru Facility Frames 
‘Disable Frame 

‘Set Font Size to default 
‘Clear facility text box 
‘Hide facility text box 
‘Empty facility list box 
‘Hide facility list box 
‘Set Frame TAG to default 


‘Loop thru S@L status frames 
"Disable status frame 

‘Set frame font default 
'Clear status text box 

"Hide status text box 


‘Empty status listbox 
"Hide status list box 


‘Set progress bar to Zero 
‘Set progress indicator default 


fraStatus (NMeasuresFrameIndex)-Enabled = True 
barS@Lstatus-Value = QO 
iProgressIndicator = 0 

0 


barS@Lstatus-Min = 
Refresh 
End Sub 


Private Sub InitGIStreeview() 
cProcName = "INIT_GIS_TREEVIEW" 


trvGISData-Nodes-Clear 
trvGISData-Enabled = False 
Refresh 

End Sub 


Private Sub InitAriesControls() 


cProcName = "INIT_ARIES_CONTROLS" 


cmdAriesBtn-Enabled = False 
cmdClearBtn-Enabled = False 
cmdAcceptBtn-Visible = True 
cmdAcceptBtn-Enabled = False 
cmdAcceptBtn-Enabled = True 


cmdAcceptBtn-Font-Size = le 
Refresh 
End Sub 


Private Sub InitStatusBar() 
cProcName = "INIT_STATUS_BAR" 


AriesStatusBar-Panels(e2)-Text 
AriesStatusBar-Panels(3)-.Text 
Refresh 

End Sub 


rr 


Lamas 


‘Set Progress bar minimum 


‘Disable Measures Button 
‘Disable CLEAR button 


‘Disable ACCEPT Button 


Private Sub FormElementsLock(ByVal iFacIndex As Byte) 


cProcName = "FORM_ELEMENTS_LOCK"” 
Dim 1 As Byte 


‘Loop Variable 


‘Disable Query and Clear user entry buttons 
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Call Trafficlight(vbBlack) 
cmdClearBtn-Enabled = False 
cmdAcceptBtn-Enabled = False 


txtMovUIC-Enabled = False 
IstbxMovUIC-Enabled = False 


‘Locks User input until Query finished 
Fom 1 = GO To 3 
txtFacID(i)-Enabled = False 
lIstbxFacID(1)-Enabled = False 
Next i 


'Hides Exposed Facility Frame w/out User Input 
‘If Not (iFacIndex = 4) Then 

: txtFacID(iFacIndex).-Visible = False 

: IstbxFacID(iFacIndex)-Visible = False 

' fraFacility(iFacIndex)-Enabled = False 
‘End if 


‘Bring Aries Measures Computation Tab to the Front 
tabAriesUI-Tab = ] 
Refresh 

End Sub 


Private Sub InitializeProgressBar(ByVal iFacIndex As Byte) 
cProcName = "PROGRESS_BAR_INITIALIZE"™ 
Dim iProgressIndicator As Integer 


‘Initialize Progress Bar 
iStatusBarMax = ((iFacIndex + 1) * conTotalMeasures) + _ 
((iFacIndex + 1) * conTotalInterimTables) + conSingleMessages 


iProgressIndicator = 0 
With barS@Lstatus 
-Min = QO 
-Value = 0 
-Max = iStatusBarMax 
End With 
Refresh 
End Sub 


Private Sub Display@ueryStartTime(ByVal cStartTime As String) 
cProcName = "DISPLAY_QUERY_START_TIME” 


With AriesStatusBar 
-Panels(1)-Text 
cQ@ueryStartTime 
-Panels(2)-Text 

End With 

Refresh 

End Sub 


LaunchMapinf oMSG 
cStartTime 
"Start ™ & cQueryStartTime 


tow ot 


Private Sub DisplayQueryEndTime(ByVal cQueryEndTime As String) 
cProcName = "DISPLAY_QUERY_END_TIME" 


‘Display Query End Time 
With AriesStatusBar 
-Panels(2)-Text = "End " & c@ueryEndTime 
Call ElapsedTimer(cQueryEndTime) 
End With 
Refresh 
End Sub 


Private Sub CompareFacilities() 
cProcName = "“COMPARE_FACILITIES" 


Dim i As Byte 'Loop Variable 
Dim j As Byte ‘Loop Variable 
Dim iFacIDctr As Byte 
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Dim iConfirmResponse As Integer 
Dim cAriesConfirmMessage As String 
Dim bDuplicateFacility As Boolean 
Dim bSingleFacility As Boolean 

Dim aMeasures(4¥) As Measures_Type 
Dim rsFacilities As Recordset 


Set rsFacilities = dbAcropolis-0penTable("VALID_UNIT™., db0OpenTable) 


bDuplicateFacility = False 
bSingleFacility = False 
cAriesConfirmMessage = AriesConfirmMSG & vbCr 


enovuile see =n.. 


"Function determines the Total number of Facilities Proposed 
iFacIDctr = 100 


‘Determine if Proposed Facilities meet criterium (2 minimum) 

'If iFacIDctr = O Then 

: bSingleFacility = True 

. Call InitFacilityElements 

! txtMovUIC-Text = cMovUic-UIC 

fElse ‘Check if Duplicate Facility Selected 
' For i= 0 To (ifacIDctr = 1h) 


: For je= ti + 1) To ifacidver; 

: If aFacID(i) = aFacID(j) Then bDuplicateFacility = True 
' Next j 

: Next i 

rEnd De 


‘Build Confirmation message 

Wor 1 = 0 To ifaciDectr 

f cAriesConfirmMessage = cAriesConfirmMessage & Space(4) & aFacID(i) & "1" 
"Next i 

'cAriesConfirmMessage = Lefts(cAriesConfirmMessage, 
(Len(cAriesConfirmMessage) - 1])) 

cAriesConfirmMessage = “This will conduct a calculation of the Valid 
Facilities in the Valid Unit List" 

'If bDuplicateFacility Then ‘Duplicate facility exists 

' Call DisplayMessage(DuplicateFacilityMNSG.i vbCritical, vb0OKOnly, 
confaci li tyerror caption) 


"ElseIf bSingleFacility Then "Single facility exists 

: Call DisplayMessage(InvalidGISQueryMSGi vbCritical. vb0KOnlys 
conFacilityErrorCaption) 
TEnceely 


If Not bDuplicateFacility And Not bSingleFacility Then 
Screen-MousePointer = vbHourglass 
iConfirmResponse = MsgBox(cAriesConfirmMessage, vb@uestion + vb0KCancel, 
"Launch ARIES v3-0") 


If iConfirmResponse = vb0OK Then 
Call FormElementsLock(iFacIDctr) 
Call Display@ueryStartTime(Times()) 


Call InitializeProgressBar(iFacIDctr) 
'Call CreateNOS _InterestTable(cMovUic-UIC) 


With rsFacilities 
Maver ites t 


‘Loop thru all proposed facilities 
Por vias UL To 1faclictr 


aMeasures(i)-FacID = -Fields("FAC_ID")-Value 'aFacID(i) 
Call GetArchivedFacility(aMeasures(i). cMovUic-UIC) 


If Not aMeasures(i)-Archived Then 
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Call NonGISQ@uery(aMeasures(i)) 
: End) dif 


Call GISQuery(aMeasures(i)) 
Call ResetS@Lframes 
Call ArchiveFacilityMeasures(aMeasures(i)) 


-MoveNext 
Next i 
End With 
Call CloseGISQuery 
Call DeleteTempAccessTables 
Call DisplayQueryEndTime(Times()) 
: Call OutputComputedMeasures(aMeasures(). iFacIDctr) 


tbararies-Buttons("import™)-Enabled = True 
cmdClearBtn-Enabled = True 
bS@L@ueryDone = True 
End If 
End If 
Screen-MousePointer = vbDefault 
End Sub 


Private Sub GetArchivedFacility(ByRef aMeasures As Measures_Type. ByVal 
enavure AS String) 
cProcName = "Get_Archived_Facility"” 
Dim rsArchivedFacility As Recordset 
Dim @defnS@L As String 


QdefnS$@L = "Select * From Repository Where FAC_ID = '" & aMeasures-FacID 8 ™! 
Order by MOVUIC™ 

AriesStatusBar-Panels(1)-Text = ArchivedFacilityNSG 

Refresh 


"Open Facility Respository Database 
Set rsArchivedFacility = dbTeliko-0OpenRecordset(QdefnS@L. db0penSnapshot., 
dbRead0Only) , 


With rsArchivedFacility 
If TableNotNULL (rsArchivedFacility) Then 

-MoveFirst 
AriesStatusBar-Panels(1l)-Text = LoadingArchiveNSG & !Fac_ID 
Refresh 
'Transfer Facility Record to Measures table 
aMeasures-Archived = True 
Call DisplayStatus(conMeasurel. NonGIiSFrameIndex) 
aMeasures-FacBacklogdMNaint = !FAC_MAINT 'Measure #1] 
Call DisplayStatus(conMNeasuree. NonGISFrameIndex) 
aMeasures-OperatingCost = !FAC_OPCOST ‘Measure #2 
Call DisplayStatus(conMeasured.i NonGISFrameIndex) 
aMeasures-FacAge = !FAC_AGE "Measure #3 
Call DisplayStatus(conMNeasure¥., NonGIiSFrameIndex) 
aMeasures-FacCond = !FAC_COND "Measure #4 
Call DisplayStatus(conMeasureS. NonGIiSFrameIndex ) 
aMeasures-FacOwned = !FAC_OWNED "Measure #5 
Call DisplayStatus(conNeasureb.i MeasuresFrameIndex) 
aMeasures-Competition = !COMPETION "Measure #64 
Call DisplayStatus(conMNeasure?. MNeasuresFrameIndex) 
aMeasures-AreaDrillAttend = !DRILL_ATND 'Measure #7 
Call DisplayStatus(conMeasure&. MeasuresFrameIndex) 
aMeasures-AreaLossRate = 'AREA_LOSS ‘Measure #86 
Call DisplayStatus(conMeasured. MeasuresFramelIndex) 
aNeasures-AreaXferRate = !AREA_XFER ‘Measure #4 
Call DisplayStatus(conMeasurelO. NeasuresFrameIndex) 
aMeasures-AvgAreaMan = !AVG_MANING ‘Measure #10 
Call DisplayStatus("RZA Distance™., GISNonS@LFrameIndex ) 
aMeasures-DistToRecruit = !DIST_RZA 'Measure #1] 
Call DisplayStatus(conMeasurele. MeasuresFrameIndex) 
aMeasures-TotalAvailClos = !AVAIL_CLOS "Measure #1¢e 
Call DisplayStatus(conMeasureld. MeasuresFrameIndex) 
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aMeasures-IRR = !IRR ‘Measure #13 
Call DisplayStatus(conMNeasurel¥, MeasuresFrameIndex ) 


aMeasures-RecruitMarket = !REC_MARKET ‘Measure #14 
Call DisplayStatus(conMeasurel5., MeasuresFrameIndex ) 
aMeasures-Reassignments = !REASSIGN ‘Measure #15 
Call DisplayStatus("AMSA Distance". GISNonS@LFrameIndex) 
aMeasures-DistToAMNSA = '!DIST_AMSA ‘Measure #1b 
Call DisplayStatus("ECS Distance", GISNonS@LFrameIndex) 
aMeasures-DistToECS = !DIST_ECS ‘Measure #17 


Call DisplayStatus(conNoAuthNG. GISNonS@LFrameIndex) 

Call DisplayStatus(vbNullString. GISNonS@LFrameIndex) 
Call DisplayStatus(conMeasurel&, NonGISFrameIndex) 

Call DisplayStatus(vbNullString. NonGISFrameIndex ) 
aMeasures-FaclwkkndUsed = 'WKND_USED ‘Measure #184 
Call IncrementProgressBar 

Call IncrementProgressBar 


“-Findhirst "MNOVUIC = '™" & eiovire & 7'* 
If Not -NoMatch Then 
aMeasures-MovUIC_Match = True 
Call DisplayStatus(conMeasureld. MeasuresFrameIndex) 


aMeasures-MOSAvailClos = !MOS_AVAIL ‘Measure #19 
Call DisplayStatus(conMNeasurecO, MeasuresFrameIndex) 
aMeasures-IRR_MOS = !IRR_MOS ‘Measure #20 


‘Increment Progress Bar to account for No Temp Tables created 
iStatusBarMax = iStatusBarMax - le 
barS@Lstatus-Max = iStatusBarMax 
Else 
aMeasures-MovUIC_Match = False 
Ene) Lf 
Bndmnt 
-Close 
End With 
Set rsArchivedFacility = Nothing 
End Sub 


Private Sub CreateM0S_InterestTable(ByVal cMovUic As String) 
cProcName = "CREATE_MNOS_INTEREST_TABLE" 
Dim c@defnS@L As String 
Dim DNoASSNxMOS_Exists As Boolean 


AriesStatusBar.-.Panels(l)-Text = BuildMOSInterestMSG 


bNoASSNxMOS_Exists = CreateNoASSNxM0Stable(cMovUic) 
If bNoASSNxMOS_Exists Then 
‘Create Interim Table CE MOS_INTEREST J 
Call DisplayStatus(Tbl1_M0SInterest. S@LFrameIndex) 
cQdefnSa@L = GetMOSInterestQuery 
Call BuildAccessTable(Tbl_MOSInterest.i Qdef_MNOSInterest. cadefnSaL) 
ENG eat 
End Sub 


Private Function CreateNoASSNxMOStable(ByVal cMovUic As String) As Boolean 
Dim cQdefnS@L As String 


"Create Interim Table L NoASSNxMOS J 

cadefnS@L = NoASSNxMOSQueryBegin & cMovUic & NoASSNxMOSQ@ueryEnd 
Call DisplayStatus(Tbl_NoASSNxM0OS., S@LFrameIndex) 

Call BuildAccessTable(Tbl_NoASSNxMOS., Qdef_NoASSNxMOS. ca@defnSa@L) 
CreateNoASSNxMNOStable = True 


End Function 


Private Function GetMOSInterestaduery() As String 
cProcName = "GET_MOS_INTEREST_QUERY"” 


Dim rsMOS_Total As Recordset 
Dim rsMOS_Top3 As Recordset 


Dim ikRecordCtr As Long 
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On 


Dim iMNOS_Total As Integer 
Dim iMOS_Top3 As Integer 
Dim MOSPercent As Single 


D-5 
0 


NMOSPercent 
iNOS. Tetal 
iNOS_Top3 = Q0 


Error GoTo EH_MOSinterest 


‘Execute S@L Query for MOS_Count Summation 
Set rsMOS_Total = dbAcropolis-0penRecordset(MNOS_TotalQuery. db0penDynaset, 
dbReadonly) 
If QuerySumNotNULL (rsMOS_Total!MNOS_TOTAL) Then 
iNOS Total = rsMNOS_Total!NOS_TOTAL 
Else 
iNOS Total = -1l 
Bnet 


"Execute S@L Query for MOS_Top 3 
Set rsMOS_Top3 = dbAcropolis-0OpenRecordset(MN0OS_Top3@uery., db0OpenDynaset, 
dbReadoOnly) 


‘Sum Top. 43) MOsS's 

With rsMOS_Top3 
If TableNotNULL(rsMNOS_Top3) Then -MNoveLast 
iRecordCtr = -RecordCount 


If TableNotNULL(rsMOS_Top3) And iRecordCtr = 3 Then 
-MoveFirst 
INOS Top3 = 'MOS_COUNT 


-MoveNext 
ios 1ob43 


iMOS_Top3 + !MOS_COUNT 


-MoveLast 
iNOS_Top3 
Else 
IMNOS_Top3 = 1] 
End If 
End With 


OS Tops + IOS [COUNT 


‘Determine MOS of Interest 

If (CSng(iMNOS_Top3) / CSngC(iNOS_Total)) > NOSPercent Then 
GetNOSInterestQuery = MOS_INT_Top3@uery 

Else 
GetNOSInterestQuery = MNOS_INT_TotalQuery 

End If 


‘Delete Recordset Objects 
rsMOS_Total-Close 
rsMOS_Top3-Close 
Set rsMOS_Total = Nothing 
Set rsMNOS_Top3 = Nothing 


Exit Function 


EH_MOSintermest: 


Select Case Err.Number 


Case ERR_InvalidUseOFNull 
INOS_Total = -] 
Resume Next 


Case Else 'Trap all other Errors & Report 
Call OutputERROR_LOG 
End 
End Select 
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End Function 
Private Sub ResetS@Lframes() 


lstbxStatus (MeasuresFrameIndex)-Clear 
txtStatus(MeasuresFrameIndex)-Text = ™" 


lstbxStatus (NonGISFrameIndex) -Clear 
txtStatus (NonGISFrameIndex)-Text = ™" 


lstbxStatus (GISNonS@LFrameIndex).Clear 
txtStatus (GISNonS@LFrameIndex)-Text = ™" 


lstbxStatus(S@LFrameIndex)-Clear 
txtStatus (S@lLFrameIndex)-Text = ™" 
End Sub 


Private Sub NonGIS@uery(ByRef aNeasures As Measures_Type) 
cProcName = "NON_GIS_QUERY" 


Dim rsFacBklogdMaintMeasure As Recordset 'Measure #]) 


Dim rsOpCostFacCondMNeasure As Recordset 'Measure #2 & #4 
Dim rsFacAgeMeasure As Recordset "Measure #3 
Dim rsFacOwnedUsedMeasure As Recordset ‘Measure #5 & #18 


Set rsFacBklogdMaintMeasure = dbAcropolis-0penRecordset(Tbl_RPINFODT;, 
db0penTable., dbReadoOnly) 
rsFacBklogdMaintMNeasure-.Index = "FACID" 


Set rsO0pCostFacCondMeasure = dbAcropolis-0OpenRecordset(Tbl_ FPS. db0OpenTable, 
dbReadonly) 
rsOpCostFacCondMeasure-Index = "FACID"™ 


Set rsFacAgeMeasure = dbAcropolis-0OpenRecordset(Tbl_Interest., db0penTable, 
dbRead0Only) 
rsFacAgeMeasure-Index = "FACID™ 


Set rsFacOwnedUsedNeasure = dbAcropolis-0OpenRecordset(Tbl_Complex, 
db0penTable., dbReadonly) 
rsFacOwnedUsedMeasure-Index = "FACID" 


‘Calc Measure #] 

With rsFacBklogdMNaintMeasure 
-Seek "=", aMeasures-FacI)D 
If Not (.-NoMatch) Then 


aNeasures-FacBacklogdMaint = !Maint_Cost 
Else 
aMeasures-FacBacklogdNaint = DefaultErrorValue 
End: iF 
Call DisplayStatus(conMeasurel., NonGISFrameIndex ) 
End With 


‘Calc Measure #2 & #4 

rsOpCostFacCondNeasure-Seek "=", aNeasures-FacID 

If Not (rs0pCostFacCondMNeasure-NoMatch) Then 
aMeasures-0OperatingCost = rsOpCostFacCondMeasure! COST_PR_SF 


‘Verify that the stored value is not NULL 
If Not IsNull(rsOpCostFacCondMNeasure!FAC_COND) Then 
aMeasures-FacCond = rsOpCostFacCondMNeasure!FAC_COND 
Else 
aMeasures-FacCond = DefaultErrorValue 
Enidmelst 
Else 
aMeasures-OperatingCost = DefaultErrorValue 
aMNeasures-FacCond = DefaultErrorValue 
End If 
Call DisplayStatus(conMeasuree. NonGISFrameIndex) 
Call DisplayStatus(conMeasure4, NonGISFrameIndex) 
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‘Calc Measure #3 
With rsFacAgeMNeasure 
-Seek "=", aMeasures-FacID 
If Not ¢(-NoMatch) Then 
If Not IsNull(!DATE_ACQ@) Then 
aMeasures-FacAge = ComputeFacilityAge(!DATE_ACQ) 


Else 
aMeasures-FacAge = DefaultErrorValue 
ano Tt 
Else 
aMeasures-FacAge = DefaultErrorValue 
Ena if. 


Call DisplayStatus(conMeasure3, NonGISFrameIndex) 
End With 


'Calc Measure #5 & # 184 
rsFacOwnedUsedMeasure-Seek "=", aMeasures-FacID 
If Not (rsFacOwnedUsedMeasure-NoMatch) Then 
If Not IsNull (rsFacOwnedUsedMeasure!FAC_OWNED) Then 
aMeasures-FacOwned = rsFacOwnedUsedMeasure! FAC_OWNED 
Else 
aMeasures-FacOwned = DefaultErrorValue 
End If 
aMeasures-FacWkndUsed = rsFacOwnedUsedMeasure!FAC_WKND_ USED 
Else 
aMeasures-FacOwned = DefaultErrorValue 
aMeasures-FacWKkkndUsed = DefaultErrorValue 
End If 
Call DisplayStatus(conMeasureS. NonGISFrameIndex) 
Call DisplayStatus(conMeasurel&, NonGISFrameIndex) 
Call DisplayStatus(vbNullString., NonGISFrameIndex) 


"Close Recordset Objects 


Set rsFacBklogdMaintMeasure = Nothing 
Set rsOpCostFacCondMeasure = Nothing 
Set rsFacAgeMeasure = Nothing 

Set rsFacQwnedUsedMeasure = Nothing 


End Sub 


Private Sub GISQuery(ByRef aMeasures As Measures_Type) 


cProcName = "GIS QUERY" 

Dim cQdefnS@L As String 

Dim rsArchive As Recordset 

Dim rsNoRE@D As Recordset 

Dim rsNoAuthNG As Recordset 

Dim rsNoASSN As Recordset 

Dim rsNoLOSS As Recordset 

Dim rsNoXFER As Recordset 

Dim rsDrillTotal As Recordset 
Dim rsDrillSAT As Recordset 

Dim rsAvailClos As Recordset 

Dim rsIRR As Recordset 

Dim rsRecruitMarket As Recordset 
Dim rsReassignments As Recordset 
Dim rsMOSAvailClos As Recordset 
Dim rsIRR_MOS As Recordset 


‘Display Statusbar message 
AriesStatusBar-Panels(1l)-Text = SaLStatusMSG & aMeasures-FacID 


If Not aMeasures-Archived Then 

"Execute MapInfo GeoQuery via OLE interface 

Call DisplayStatus(aMeasures-FacID. MapinfoFrameIndex ) 

If bMapQueryActive Then 
Call MapInfoQuery(aMeasures-FacID) 

Else 
Call DisplayMessage(OLEf ailedMSG. vbCritical. vbOKOnly. _ 

con0OLEcaption) 

bMapBasicRunning = False 
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Call cmdExitBtn_Click 
Emcee ti, 
Call ElapsedTimer(Times()) 


'Get calculated AMSA. ECS. & RZA Distances from proposed Facility 
Call GetFacilityDistances(aMeasures) iMoasureatd ia Lia 1? 


‘Build Temp Tables FinanceCY., AreaFacID. AreaZipCode. AreaUIC. AreaClosUIC 
Call CreateFinanceTempTable 

Call CreateAreaFacIDTempTable 

Call CreateAreaUICTempTable 

Call CreateAreaClosUICTempTable 

Call CreateAreaZipCodeTempTable 

Call CreateAreaGl&ZipTempTable 

Call CreateAreaG1L&NOSTempTable 

Call DisplayStatus(vbNullString.i S@LFrameIndex) 


‘Calculate Measure #b 

Call DisplayStatus(conMNeasureb, MeasuresFrameIndex) 

Set rsNoAuthNG = dbAcropolis-OpenRecordset(ExTbl_AreaDistance;, 
db0penSnapshot., dbReadOnly) 

rsNoAuthNG-MoveFirst 

Call DisplayStatus(conNoAuthNG. GISNonS@LFrameIndex) 

Call DisplayStatus(vbNullString. GISNonS@LFrameIndex ) 


Set rsNoRE@D = dbAcropolis-0OpenRecordset (NoReqdQuery. db0OpenSnapshot., 
dbRead0nly) 
If QuerySumNotNULL(rsNoREQ@D!TOTAL_RE@D) Then 
aMeasures-Competition = rsNoAuthNG!NO_AUTH_NG + rsNoREQ@D! TOTAL_RE@D 
Else 
aMeasures-Competition = DefaultErrorValue 
Emel If 


‘Calculate Measure #? 
Call DisplayStatus(conMeasure?. MeasuresFrameIndex) 


Set rsDrillTotal = dbAcropolis-0penRecordset(DrillTotalQuery, 
db0penSnapshot. dbReadoOnly) 
Call ElapsedTimer(Times()) 


Set rsDrillSAT = dbAcropolis-OpenRecordset(DrillSAT@uery. db0penSnapshot. 
dbReadOnly) 


If QuerySumNotNULL(rsDrillTotal!DRILL_TOTAL) And 
QuerySumNotNULL (rsDrillSAT!TOTAL_SAT) Then 
If rsDrillTotal!DRILL_TOTAL Then 
aMeasures-AreaDrillAttend = rsDrillSAT!TOTAL_SAT / 
rsDrillTotal!DRILL_TOTAL 


Else 
aMeasures-AreaDrillAttend = DefaultErrorValue 
End ace 
Else 
aMeasures-AreaDrillAttend = DefaultErrorValue 
Ena if 


‘Calculate Measure #8 
Call DisplayStatus(conMeasure&é. MeasuresFrameIndex ) 


Set rsNoASSN = dbAcropolis-0penRecordset(NoASSNQuery. db0penSnapshot, 
dbReadOnly) 
Call ElapsedTimer(Times()) 


Set rsNoLOSS = dbAcropolis-0OpenRecordset(NoLOSSQuery., dbOpenSnapshot, 
dbReadoOnly) 
If QuerySumNotNULL (rsNoASSN!TOTAL_ASSN) Then 
If QuerySumNotNULL (rsNoLOSS!TOTAL_LOSS) And rsNoASSN!TOTAL_ASSN Then 
aMeasures-AreaLossRate = rsNoLOSS!TOTAL_LOSS 7/7 rsNoASSN!TOTAL_ASSN 
Else 
aMeasures-AreaLossRate = QO 
End If 
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Else 
aMeasures-AreaLossRate = DefaultErrorValue 
Enid tf 


'Calculate Measure #4 

Call DisplayStatus(conMNeasured. NeasuresFrameIndex) 

Set rsNoXFER = dbAcropolis-0penRecordset(NoXFERQuery, db0OpenSnapshot, 
dbReadoOnly) 


If QuerySumNotNULL (rsNoASSN!TOTAL_ASSN) Then 
If @uerySumNotNULL(rsNoXFER! TOTAL_XFER) And rsNoASSN!TOTAL_ASSN Then 
aMeasures-AreaXferRate = rsNoXFER!TOTAL_XFER / rsNoASSN! TOTAL_ASSN 


Else 
aMeasures-AreaxferRate = O 
Eno t 
Else 
aMeasures-AreaxferRate = DefaultErrorValue 
End If 


"Calculate Measure #10 
Call DisplayStatus(conMNeasurelO. MeasuresFrameIndex) 


If @uerySumNotNULL (rsNoASSN! TOTAL_ASSN) And 
QuerySumNotNULL (rsNoRE@D!TOTAL_RE@D) Then 
aMeasures-AvgAreaMNan = rsNoASSN!TOTAL_LASSN 7/7 rsNoREQD!TOTAL_RE@D 
Else 
aMeasures-AvgAreaNan = OQ 
Enid ef 


'Calculate Measure #le 

Call DisplayStatus(conMeasurele, MeasuresFrameIndex ) 

Set rsAvailClos = dbAcropolis-0OpenRecordset(TotalAvailClosQ@uery, 
dbOpenSnapshot, dbReadonly) 


If QuerySumNotNULL (rsAvailClos! TOTAL_AVAIL) Then 
aMeasures-TotalAvailClos = rsAvailClos!TOTAL_AVAIL 
Else 
aMeasures-TotalAvailClos = DefaultErrorValue 
End if 


"Calculate Measure #13 

Call DisplayStatus(conMNeasurel3. MNeasuresFramelIndex) 

Set rsIRR = dbAcropolis-0OpenRecordset(TotalIRR@uery., dbOpenSnapshot, 
dbReadonly) 


If QueryCountNotNULL(rsIRR!TOTAL_IRR) Then 
aMeasures-IRR = rsIRR!TOTAL_IRR 

Else 
aMeasures-IRR = DefaultErrorValue 

Ende lr 


‘Calculate Measure #14 

Call DisplayStatus(conMeasurel4¥, MeasuresFrameIndex) 

Set rsRecruitMarket = dbAcropolis-0OpenRecordset(RecruitMarket@uerys, 
db0penSnapshot, dbReadodnly) 


If QuerySumNotNULL(rsRecruitMarket! TOTAL_MARKET) Then 
aMeasures-RecruitMarket = rsRecruitMarket! TOTAL_MARKET 
Else 
aMeasures-RecruitMarket = DefaultErrorValue 
Eng) If 


‘Calculate Measure #15 

Call DisplayStatus(conMeasurel5, MNeasuresFrameIndex) 

ca@defnS@L = Reassign@ueryBegin & cMovUic-UIC & Reassign@ueryEnd 

Set rsReassignments = dbAcropolis-0OpenRecordset(cé@defnSaL, 
dbOpenSnapshot., dbReadOnly) 


If Q@uerySumNotNULL(rsReassignments! TOTAL_RESERVISTS) Then 
aMeasures-Reassignments = rsReassignments! TOTAL_RESERVISTS 
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Else 
aMeasures-Reassignments = DefaultErrorValue 
Brice Lf 


‘Calculate Measure #15 

Call DisplayStatus(conMeasureld, MeasuresFrameIndex) 

Set rsM0OSAvailClos = dbAcropolis-0penRecordset(TotalClosM0SQguery, 
dbOpenSnapshot., dbReadOnly) 


If QuerySumNotNULL (rsMOSAvailClos!TOTAL_CLOS_MOS) Then 
aMeasures-MOSAvailClos = rsMOSAvailClos! TOTAL_CLOS_MOS 
Else 
aMeasures-MOSAvailClos = DefaultErrorValue 
End If 


"Calculate Measure #20 

Call DisplayStatus(conMeasureels, MeasuresFrameIndex) 

Set rsIRR_MOS = dbAcropolis-0OpenRecordset(TotalIRR_MOSQuery, 
dbOpenSnapshot. dbReadOnly) 


If QueryCountNotNULL (rsIRR_MOS!TOTAL_IRR_MOS) Then 
aMeasures-IRR_MOS = rsIRR_MOS! TOTAL_IRR_MOS 
Else 
aMeasures-IRR_MOS = DefaultErrorValue 
End If 
Call ElapsedTimer(Times()) 


Elself Not aMeasures-MovUIC_Match Then 
‘Execute MapInfo GeoQuery via OLE interface 
Call DisplayStatus(aMeasures-FacID. MapinfoFrameIndex) 


If bMapQueryActive Then 
Call MapInfoQuery(aMeasures-FacID) 
Else 
Call DisplayMessage(OLEfailedMSG. vbCritical., vb0OKOnly. con0OLEcaption) 
bMapBasicRunning = False 
Call cmdExitBtn_Click 
Ericmelt 
Call ElapsedTimer(Times()) 


'Build Temp Tables FinanceCY. AreaFacID. AreaZipCode, AreaUIC,s AreaClosuUICc 
Call CreateAreaFacIDTempTable 

Call CreateAreaUICTempTable 

Call CreateAreaClosUICTempTable 

Call CreateAreaZipCodeTempTable 

Call CreateAreaG1L&NOSTempTable 

Call DisplayStatus(vbNullString., S@LFrameIndex) 

iStatusBarMax = iStatusBarMax - 4 

barS@Lstatus-Max = iStatusBarMax 


"Calculate Measure #145 

Call DisplayStatus(conMeasurel4d. MeasuresFrameIndex) 

Set rsMOSAvailClos = dbAcropolis-0penRecordset(TotalClosM0SQuerys, 
dbOpenSnapshot., dbReadOnly) 


If QuerySumNotNULL (rsMOSAvailClos!TOTAL_CLOS_MOS) Then 
aMeasures-MOSAvailClos = rsMOSAvailClos! TOTAL_CLOS_MOS 
Else 
aMeasures-MOSAvailClos = DefaultErrorValue 
Emre 1 f 


‘Calculate Measure #20 

Call DisplayStatus(conMeasureets MeasuresFrameIndex) 

Set rsIRR_MOS = dbAcropolis-OpenRecordset(TotalIRR_MOSQuery, 
dbQpenSnapshot, dbReadonly) 


If QueryCountNotNULL (rsIRR_MOS!TOTAL_LIRR_MOS) Then 
aNeasures-IRR_MOS = rsIRR_MOS! TOTAL_IRR_MOS 
Else 
aMeasures-IRR_MOS = DefaultErrorValue 
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: End If 
: Call ElapsedTimer(Time$()) 
: End If 


‘Delete Recordset Objects 
Set rsNoAuthNG = Nothing 


Set rsNoRE@D = Nothing 
Set rsNoASSN = Nothing 
Set rsNoXFER = Nothing 
Set rsNoLOSS = Nothing 


Set rsDrillTotal = Nothing 
Set rsDrillSAT = Nothing 
Set rsAvailClos = Nothing 
Set rsRecruitMarket = Nothing 
Set rsReassignments = Nothing 
Set rsMOSAvailClos = Nothing 
Set rsIRR_MOS = Nothing 
Set rsIRR = Nothing 

End Sub 


Private Sub CloseGISQuery() 
cProcName = "CLOSE_GIS_QUERY" 


ob jGeoQuery-RunMenuCommand M_FILE_EXIT 


Call DisplayStatus(CompleteMNSG. MeasuresFrameIndex) 
Call DisplayStatus(CompleteMNSG.1 NonGISFrameIndex) 
Call DisplayStatus(vbNullString. MapinfoFrameIndex) 
Call DisplayStatus(CompleteNSG, MapinfoFrameIndex) 
Call DisplayStatus(CompleteMNSG,i GISNonS@LFrameIndex) 
Call DisplayStatus(CompleteMSG,i S@LFrameIndex) 


: barS@Lstatus-Value = iStatusBarMax 
End Sub 


Private Sub GetFacilityDistances(ByRef aMeasures As Measures_Type) 
cProcName = "GET_FACILITY_DISTANCES" 


Dim rsFacilityDistanceMNeasures As Recordset 'Measures #1], #16. #17 
On Error GoTo EH_FacDist 


"Open External Table 
Set rsFacilityDistanceMeasures = 
dbAcropolis-0penRecordset(ExTbl_AreaDistance, db0penDynaset. dbRead0nly) 


Call DisplayStatus("AMSA Distance", GISNonS@LFrameIndex) 
Call DisplayStatus("ECS Distance™, GISNonS@LFrameIndex ) 
Call DisplayStatus("RZA Distance", GISNonS@LFrameIndex ) 


If TableNotNULL(rsFacilityDistanceMeasures) Then 
With rsFacilityDistanceMeasures 
-MoveFirst 
‘Input Facility Distances into Measure Table 
aMeasures-DistToAMSA = !'AMSA_DIST ‘Measure #1]b 
aMeasures-DistToECS = !ECS_DIST ‘Measure #17 
aMeasures-DistToRecruit = !RZA_DIST ‘Measure #)1 
End With 
Else 
aMeasures-DistToAMSA = DefaultErrorValue 
aMeasures-DistToECS = DefaultErrorValue 
aMeasures-DistToRecruit = DefaultErrorValue 
End it 
Call DisplayStatus(vbNullString, GISNonS@LFrameIndex) 


‘Delete Recordset Object 

rsFacilityDistanceMeasures.Close 

Set rsFacilityDistanceMeasures = Nothing 
ExXi © SUD 
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En Faclase- = Error Handler 


Select Case Err-Number 
Case ERR_ExtrnTableNotAttached 
"call AttachExternalTable (ExTbl_AreaDistance) 
Resume 


Case Else ‘Trap all other Errors & Report 
Call OutputERROR_LOG 
Resume Next 
End Select 
End Sub 


Private Sub CreateFinanceTempTable() 
cProcName = "CREATE_FINANCE_TEMP_TABLES" 
Dim c@defnS@L As String 
Dim dtDate As Date 
Dim €Gy_e@0n As String * 1 


‘Initialize Date parameters 
dtDate = Now 
cCY_@QTR = DatePart("q". dtDate) 


Select Case CInt(cCY_@TR) 
Case 4Y 
cQdefnSaL 
Case ], 
cédefnS@L 
Case ce 
c@defnSaL 
Case 3 
c@defnS@L = RQYFY_SCRN 
End Select 


QLFY_SCRN 


Q@2FY_SCRN 


Q3SFY_SCRN 


‘Create Interim Table LCL FINANCE_CY J 

c@defnS@L = CY_FinanceQuery & c@defnSaL 

Call DisplayStatus(Tbl_FinanceCY. S@LFrameIndex) 

Call BuildAccessTable(Tbl_FinanceCY, Qdef_FinanceCY.i c@defnS@L) 


End Sub 


Private Sub CreateAreaFacIDTempTable() 
cProcName = "CREATE_AREA_FACID_TEMP_TABLE” 


Dim cQdefnSaL As String 


‘Create Interim Table © AREA_FACID 3 

c@defnS@L = AreaFacIDConvert@uery 

Call DisplayStatus(Tbl_AreaFacIDs.i S@LFrameIndex) 

Call BuildAccessTable(Tbl_AreaFacIDs. Qdef_AreaFacIDs.i c@defnS@L) 
End Sub 


Private Sub CreateAreaUICTempTable() 
cProcName = "CREATE_AREA_UIC_TEMP_TABLE"™ 


Dim c@defnS@L As String 

"Create Interim Table CL AREA_UIC J] 

cadefnSa@L = AreaUICQuery 

Call DisplayStatus(Tbl_AreaUICs., S@LFrameIndex) 

Call BuildAccessTable(Tbl_AreaUICs. Qdef_AreaUICs. c@defnSeaL) 
End Sub 


Private Sub CreateAreaClosUICTempTable() 
cProcName = "CREATE_AREA_UIC_TEMP_TABLE" 


Dim c@defnSaL As String 


‘Create Interim Table [ AREA_CLOS_UIC J 
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c@defnS@L = AreaClosUICQ@uery 

Call DisplayStatus(Tbl_AreaClosUICs, Sa@LFrameIndex) 

Call BuildAccessTable(Tbl_AreaClosUICs.i Qdef_AreaClosUICs.i c@defnSa@aL) 
End Sub 


Private Sub CreateAreaZipCodeTempTable() 
cProcName = "CREATE_AREA_UIC_TEMP_TABLE"™ 


Dim c@defnS@L As String 


'Create Interim Table [ AREA_ZIPCODE J] 

cadefnS@L = AreaZipCodeConvert@uery 

Call DisplayStatus(Tbl_AreaZipCodes., S@LFrameIndex) 

Call BuildAccessTable(Tbl_AreaZipCodes. Qdef_AreaZipCodes., ca@defnSaL) 
End Sub 


Private Sub CreateAreaGl&ZipTempTable() 
cProcName = "CREATE_AREA_UIC_TEMP_TABLE" 


Dim c@defnS@L As String 


'Create Interim Table [CL AREA_G18_ZIP 3 

cadefnSa@l = AreaGlL&UlICZipauery 

Call DisplayStatus(Tbl_AreaG1l&UICZips., S@LFrameIndex) 

Call BuildAccessTable(Tbl_AreaGlAUICZips., @Qdef_AreaGl8UICZips.1 cadefnSacL) 
End Sub : 


Private Sub CreateAreaG1L&N0STempTable() 
cProcName = "CREATE_AREA_UIC_TEMP_TABLE"” 


Dim c@defnS@L As String 


'Create Interim Table [ AREA_G1&_NOS J 
cadefnSa@L = AreaGLl&UICZipNoS@uery 
Call DisplayStatus(Tbl_AreaG1lAUICZipMOS., Sa@LFrameIndex) 
Call BuildAccessTable(Tbl_AreaG1lAUICZipM0S, aQdef_AreaGIAUICZipMOS, cadefnSa@L) 
Call ElapsedTimer(Times() ) 
End Sub 


Private Sub DeleteTempAccessTables() 
cProcName = "DELETE_TEMP_ACCESS_TABLES" 


Call DeleteAccessTable(Tb1_N0SInterest) 

Call DeleteAccessTable(Tbl_NoASSNxMOS) 

Call DeleteAccessTable(Tbl_FinanceCyY) 

Call DeleteAccessTable(Tbl_AreaClosUICs) 

Call DeleteAccessTable(Tbl_AreaFacIDs) 

Call DeleteAccessTable(Tbl_AreaUICs) 

Call DeleteAccessTable(Tbl_AreaZipCodes) 

Call DeleteAccessTable(Tbl_AreaG1l&UICZips) 

Call DeleteAccessTable(Tbl_AreaG1lA&UICZipnNos) 
End Sub 


Private Sub OutputComputedNeasures(ByRef aNeasures() As Measures_Type., 
ByVal iFacIndex As Byte) 
cProcName = "OUTPUT_COMPUTED_MEASURES" 
Dim i As Byte 


‘Output Computed Measures 
With AriesStatusBar 
-Panels(L)-Text = OutputMeasuresNMS&G 
Call OutputMeasuresGrid(aMeasures(), ifFacIndex) 
Call OutputAriesMeasuresExcel (aNeasures()1 iFacIndex) 
DoEvents 


For 1 = 0 To ifacIndex 
Call OutputAriesFacilityInfo(CaMeasures(i)) 
Next i 


-Panels(1)-Text = LDWLaunchMSG 
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tabAriesMap-Tab = ce 
fraLDWcntrl-Visible = True 
End With 
Refresh 
End Sub 


Private Sub OutputAriesFacilityInfo(ByRef aMeasures As Measures_Type) 
cProcName = "OUTPUT_ARIES_MEASURES_TABLE” 
Dim i As Byte ‘Loop Variable 
Dim rsArchivedFacility As Recordset 
Dim @defnS@L As String 


QdefnS@L = ArchivedFacility@ueryBegin & aMeasures-FacID & 
ArchivedFacility@ueryEnd 

AriesStatusBar-Panels(1l)-Text = OutputArchiveNSG 

Refresh 


‘Open Facility Respository Database 
Set rsArchivedFacility = dbTeliko-0OpenRecordset(Tbl_AriesArchive, 
db0penDynaset) 


If Not aMeasures-Archived Then 
Call ArchiveFacilityMeasures(rsArchivedFacility. aMeasures) 


ElseIf Not aMeasures-MovUIC_Match Then 


Call ArchiveFacilityMeasures(rsArchivedFacility, aMeasures) 
Epdrer yt 


‘Delete Database Objects 
Set rsArchivedFacility = Nothing 
End Sub 


Private Sub ArchiveFacilityMeasures(ByRef aMeasures As Measures_Type) 


With rsMeasures 


-AddNew 
‘Transfer Measures to Proposed Facility Record 
'Fac_ ID = aMeasures-FacID ‘Measure #0 
'FAC MAINT = aMeasures-FacBacklogdMaint ‘Measure #1] 
'FAC_OPCOST = aMeasures-0OperatingCost ‘Measure #e 
'FAC_AGE = aMeasures-Facdge ‘Measure #3 
'FAC_COND = aMeasures-FacCond ‘Measure #4 
'FAC_OWNED = aMeasures-FacOwned ‘Measure #5 
'COMPETION = aMeasures-Competition ‘Measure #b 
'DRILL_ATND = aMeasures-AreaDrillAttend ‘Measure #? 
'AREA_LOSS = aMeasures-AreaLossRate ‘Measure #8 
'AREA_XFER = aMeasures-AreaxferRate ‘Measure #9 
'AVG_MANING = aNeasures-AvgAreafNan ‘Measure #10 
'DIST_RZA = aMeasures-DistToRecruit ‘Measure #11 
'AVAIL_CLOS = aMeasures-TotalAvailClos ‘Measure #12 
'IRR = aMeasures-IRR ‘Measure #13 
'REC_MARKET = aMeasures-RecruitMarket ‘Measure #14 
: 'REASSIGN = aMeasures-Reassignments ‘Measure #15 
'DIST_AMSA = aMeasures-DistToAMSA ‘Measure #16 
'DIST_ECS = aMeasures-DistToECS ‘Measure #1? 
'WKND_ USED = aMeasures-FacwkndUsed ‘Measure #184 
: 'MOS AVAIL = aMeasures-MNO0SAvailClos ‘Measure #15 
! 'IRR_MOS = aMeasures-IRR_MOS ‘Measure #20 


' 'MovUIC = cMovUic-UIC 


‘Save Changes to Database 
-Update 
End With 
End Sub 


Private Sub OutputMeasuresGrid(ByRef aMeasures() As Measures_Type. ByVal Index 
As Byte) 
cProcName = "OUTPUT_MEASURES_GRID" 
Dim i As Long 
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Call InitMeasuresGrid(Index) 


With gridMeasures 
For i = O To Index 


-Col = i + J] 
-Row = ODO 
-Text = aMeasures(1i)-FacID 
-Row = J 
-Text = aMeasures(i)-.FacBacklogdMaint 
-Row = ¢2 
-Text = aMeasures(i)-OperatingCost 
-Row = 3 
-Text = aMeasures(i)-.FacAge 
-Row = 4 
-Text = aMeasures(i)-FacCond 
-Row = § 
-Text = aMeasures(i)-FacOwned 
-Row = b 
-Text = aMeasures(i)-Competition 
-Row = ? 
-Text = aMeasures(i)-AreaDrillAttend 
-Row = & 
-Text = aMeasures(i)-AreaLossRate 
-Row = 9 
-Text = aMeasures(i)-AreaxferRate 
-Row = 10 
-Text = aMeasures(i)-AvgAreaMan 
-Row = 11 
~-Text = aMeasures(i)-DistToRecruit 
-Row = le 
-Text = aMeasures(i)-TotalAvailClos 
-Row = 13 
-Text = aMeasures(i)-IRR 
-Row = 14 | 
-Text = aMeasures(i)-RecruitMarket 
-Row = 15 
-Text = aMeasures(i)-Reassignments 
-Row = Jb 
-Text = aMeasures(i)-DistToAMSA 
-Row = 1? 
-Text = aMeasures(i)-DistToECS 
-Row = 14 
-Text = aMeasures(i)-FacwkndUsed 
-Row = 19 
-Text = aMeasures(i)-MNOSAvailClos 
-Row = 20 
-Text = aMeasures(i)-IRR_ MNOS 
Next i 
End With 


End Sub 


Private Sub EnableLDWbuttons() 
cProcName = "ENABLE_LDW_ BUTTONS" 


tbararies-Buttons("matrix™)-Enabled = True 

tbararies-Buttons("hierarchy™)-Enabled = True 

tbararies-Buttons("dynamic™)-Enabled = True 

tbararies-Buttons("stacked”™)-Enabled = True 
End Sub 


Private Sub CompactAriesDataBase() 
cProcName = "COMPACT_ARIES_DATABASE"” 


"Compact the Acropolis Database 
Set dbAcropolis = Nothing 
DBEngine-CompactDatabase App-Path & FILE_Acropolis. App-Path & FILE_Akron 


Kill App-Path & FILE_AcropolisBackup 
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Name App-Path & FILE_Acropolis As App-Path & FILE_AcropolisBackup 
Name App-Path & FILE_Akron As App-Path & FILE_Acropolis 


‘Compact the Repository Database 
Set dbTeliko = Nothing 
DBEngine-CompactDatabase App-Path & FILE_Teliko. App-Path & FILE_Titan 


Kill App-Path & FILE_TelikoBackup 
Name App-Path & FILE_Teliko As App-Path & FILE_TelikoBackup 
Name App-Path & FILE_Titan As App-Path & FILE_Teliko 


Call DisplayMessage(DatabaseCompactedMNSG. vbInformation, vb0K0nly, 


conFileCaption) 
End Sub 
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Module 3. ARIES PUBLIC DECLARATIONS 


Purpose: Initializes all public variables and constants; Contains the variables that represent 
the SQL business rules for calculating the ARU-DM decision parameters. 


Source Type: Visual Basic for Applications 


Source File: libDECLARATIONS.BAS 


Code Listing: 
Attribute VB_Name = "libDECLARATIONS" 
Option Explicit 


meee eee eee ee ce ee ee ee ee eee ce ee ee ee ee ee ee ee eee ee ee ee eee ee oe 


Public Const MovUICstatbarNSG = "Enter Moving Unit's (UIC)" 


Public Const MovUIClengthMNSG = "“Noving UIC must be six * _ 
& "Alpha-Numeric characters” 


Public Const FacilityStatbarMNSG = "Enter Facility Identifier ” _ 
& "for Proposed Facility "” 


Public Const FacIDlengthMSG = "Proposed Facility Identifier " 
&@ "must be entered in { XX### } Format" 


Public Const LaunchAriesMSG = "Select ARIES button to start * _ 
& "Facility Comparisions"” 


Public Const S@LStatusNSG = "Calculating Measures for Facility : " 
Public Const ClearButtonMSG = “Clears all User Entries" 
Public Const ExitButtonMSG = "Ends Program" 
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Public Const ArchivedFacilityMSG = "Checking ARIES Respository for " _ 
&@ "Facilities..." 

Public Const BuildMOSInterestMSG = "Creating MOS of Interest Tables...” 

Public Const LaunchMapinfoMSG = "Loading Mapinfo and USARC Databases" 

Public Const LDWLaunchMSG = "Ready to Launch LDW & Import " 
& "Measures Table...” 

Public Const OutputArchiveMNSG = "Transferring Measures Table to 
&® "Aries Archive...” 

Public Const OutputMeasuresMSG = "Transferring Measures Table to ™ _ 
& "EXCEL< =." 

Public Const LoadingArchiveNSG 


ve 


rv 


"Retrieving Proposed Facility 
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Public Const APIfailedNSG = "Win3ge API Connection FAILED." _ 
&® vbCr & vbCr & "Unable to Complete Operation.” 


Public Const AriesConfirmMSG = "Conduct Data Analysis Comparisions”™ _ 
& ™ of Proposed Facilities :" 


Public Const DatabaseCompactedNSG = "ARIES Databases have been 7 _ 


Ze 


&® "Compacted Successfully-” 


Public Const DuplicateFacilityMSG = "Unable to Conduct ™ _ 
2 Analvsws- | sevocr 8) vocr=: “DUPELTCATLE FAGIET YY OPROROSED® 


Public Const FacIDinvalidMSG = "} is currently not on file in " 
& "the COMMAND PLAN or USARC GEOREF File” 


Public Const InvalidGIS@QueryMSG = "Unable to Conduct Analysis; ” _ 
&8 vbCr & vbCr & “Insufficient Amount of FACILITY(s) PROPOSED" 


Public Const LDWresetMSG = "Do you wish to RESET the LDW Application?” _ 
& vbCr & vbCr & "All Unsaved Data Changes will be Deleted.” 


Public Const MovUICinvalidMSG = "} is currently not on file in” 
& "the COMMAND PLAN or USARC GEOREF File” 


Public Const NoFacilityComparedMSG = "ARIES Facility Comparision ™ 
& "Operation has not been Performed.” 


Public Const OLEfailedMSG = "OLE Connection FAILED.” _ 
& vbCr & vbCr & "Please RESTART Application." 


Public Const CompleteMSG = "** COMPLETE **" 


Public Const AreaGlL&MSG = "Area G18" 
Public Const AreaIRRMSG = "Area IRR” 
Public Const AreaQMAMSG = "Area QMA" 


Public Const conNoAuthNG = "NO_AUTH_NG"” 

Public Const CompactDatabaseMSG = "Do you wish to COMPACT the Aries Databases?" 
Public Const LDWactiveMSG = "LDW Application currently not Activated.” 

Public Const PrinterReadyMSG = "Ensure Printer is Ready...."” 

Public Const ProgressIndicatorMaxMSG = "Progress Bar Maximum Limit Exceeded" 


Public Const conFacilityErrorCaption = "Proposed Facility Selection” 
Public Const conUICcaption = "Unit Identification Code Selection” 
Public Const conErrorCaption = "UNEXPECTED ERROR Trap” 

Public Const con0OLEcaption Windows 95 OLE Linkweeror 

Public Const conAPIcaption "Logical Decisions-Win3e API Link” 
Public Const conS@Lcaption "SQL Query Computation” 

Public Const conFileCaption = "ARIES File Maintenance Operations" 


Public Const NoASSNxMOSQueryBegin = "Select MOS, Count(*) as " 
& "MOS_COUNT Into NoASSNxMOS From G1&Natl Where UIC = '" 


Public Const NoASSNxMOSQueryEnd = ™' Group by MOS Order by " 
& “Count< *)" DESG” 


Public Const MOS_TotalQuery = "Select Sum(MOS_COUNT) as 7 _ 
& "MOS _ TOTAL From NoASSNxMOS" 


Public Const MOS_Top3Query = "Select Top 3 MOS_COUNT From " 
& "NoASSNxMOS" 


Public Const MOS_INT_TotalQuery = "Select MOS Into ” 
& "MOS_INTEREST From NoASSNxMOS Order by MOS" 


Public Const MOS_INT_Top3Q@uery = "Select Top 3 MOS Into ” 
& "MOS _INTEREST From NoASSNXMOS Order By MOS" 


— 


Public Const CY_Finance@Query = "Select UIC. Count(UIC) as UIC_TOTAL " 
& "anto FINANCE_CY From FINANCE_@TR Where ” 


Public Const @LFY-SCRN =92CUTALQIPF + UTACOLPr +e ASCtPE ee ee 
& "UTAYQIPF) > 20 Group by UIC Order by UIC" 


Public Const @2FY_SCRN = "(UTA2Q1PF + UTA3QIPF + UTAYQLPF + 7 _ 
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@ "UTALQ@CFY) > 20 Group by UIC Order by UIC" 


Public Const @3FY_SCRN = "(UTAS@1PF + UTAY@QLPF + UTALQCFY + 7 _ 
8 "UTACQCFY) > 20 Group by UIC Order by UIC" 


Public Const QYHFY_SCRN = "(UTAY@QLPF + UTALQCFY + UTACQCFY + 7 _ 
& "UTAS@QCFY) > 20 Group by UIC Order by UIC" 


Public Const AreaFacIDConvertQuery = "Select FAC_ID Into ™ _ 
& "AREA_FACID From AreaFacID Order by FAC_ID" 


Public Const AreaZipCodeConvertQuery = "Select Zip Into 7 _ 
& "AREA_ZIPCODE From AreaZipCode Order by Zip” 


Public Const AreaUICQuery = "Select Distinct UIC Into AREA_UIC ” 
& "From VALID_UIC Where VALID_UIC-FAC_ID = Any (Select ™ _ 
= "AREA_FACID-FA€_ID From AREASFACID) Order by UIC” 


Public Const AreaClosUICQuery "Selectmurle Into AREA_€CLOS UIC * 
& "From G1?Natl Where Tier 'SB' and Gl?Natl-UIC = Any " 
&® "(Select AREA_UIC-UIC From AREA_UIC) Order by UIC" 


Public Const AreaG1l&UICZipQuery = "Select Distinct UIC, ZipCode, * _ 
& "Count(UIC) as UIC_TOTAL Into Area_G1&_ZIP from G18 ™ _ 
& "Group by UIC. ZipCode Order by UIC, ZipCode” 


Public Const AreaG1l&UICZipMOS@uery = "Select Distinct UIC. ZipCode, 7 _ 
& "MOS, Count(UIC) as UIC_TOTAL Into Area_G1S&_MOS from G18 " 
& "Group by UIC, ZipCode. MOS Order by UIC. ZipCode, MOS" 


; SQL Query Definitions (Temporary Recordsets) 

Public Const NoReqdQuery = "Select Sum(UIC_TOTAL) as TOTAL_REQD ” _ 
& "From G1%Natl Where G1lINatl-UIC = Any (Select AREA_UIC-.UIC™ _ 
S * From eAnen_ ULG@)” 


Public Const DrillTotalQuery = "Select Sum(UIC_TOTAL) as DRILL_TOTAL " 
& "From FINANCE_ Where FINANCE_-UIC = Any (Select AREA_UIC-UIC 7 _ 
& "From AREA_UIC)” 


Public Const DrillSATQuery = "Select Sum(UIC_TOTAL) as TOTAL_SAT 7 _ 
& "From FINANCE_CY Where FINANCE_CY-UIC = Any (Select AREA_UIC-UIC ” 
& "From AREA _UIG)” 


Public Const NoASSN@uery = "Select Sum(UIC_TOTAL) as TOTAL_ASSN " 
& "From G1lS6Natl1_UIC Where G1lS&Nat1_UIC-UIC = Any ” 
&® "(Select AREA_UIC-UIC From AREA_UIC)" 


Public Const NoLOSSQuery = "Select Sum(UIC_TOTAL) as TOTAL_LOSS From 7 _ 
& "FYxxLOSS Where FYxxLOSS.-UIC = Any (Select AREA_UIC-UIC From ™ _ 
eA EA eee ee 


Public Const NoXFER@uery = "Select Sum(UIC_TOTAL) as TOTAL_XFER From ™ _ 
& "FYxxXFER Where FYxxXFER-UIC = Any (Select AREA_UIC-UIC From ™ _ 
& “AREASUIO)” 


Public Const TotalAvailClosQuery = "Select Sum(UIC_TOTAL) as ” 
& "TOTAL_AVAIL From Area_G1l&_ZIP Where Area_614_ZIP-UIC = ” 
&® "Any (Select AREA_UIC-UIC From AREA_UIC) and ” _ 
& "Area_G1l&_ZIP-ZIPCODE = Any(Select AREA_ZIPCODE-.ZIP From ™ _ 
& “AREAL ZIPCODE) = 


Public Const TotalIRRQuery = "Select Count(*) as TOTAL_IRR ™ _ 
& "From IRR Where IRR-ZIP = Any (Select AREA_ZIPCODE-ZIP 7 _ 
& "From AREA_ZIPCODE)” 


Public Const RecruitMarketQuery = "Select Sum(MWCATIC+MWCATSA+™ _ 
2S 


2 "MBCATL2+MBCATSA+MHCATLO+MHCAT3A) as TOTAL_MARKET From ” 
2 "Q@MA Where Q@MA-ZIP = Any (Select AREA_ZIPCODE-ZIP 7 _ 
2 "From AREA_ZIPCODE)" 


Public Const Reassign@ueryBegin = “Select Sum(UIC_TOTAL) as ” 
& "TOTAL_RESERVISTS From Area_G1&_ZIP Where 7 _ 
8 "Area_G18_ZIP-UIC = '" 


Public Const Reassign@ueryEnd = "' and Area_G18&_ZIP.ZIPCODE 
& “Any (Select AREALZIPCODE-ZIP From AREALZIPCODE)™ 


Public Const TotalClosMOSQ@Query = "Select Sum(UIC_TOTAL) as 7 _ 
& "TOTAL_CLOS_NOS From Area_G1&_M0OS Where Area_G1&_MNOS.MNOS 7 _ 
& "= Any (Select MOS_INTEREST-MOS From MOS_INTEREST) and 7 _ 
&@ "Area_G16_MOS-UIC = Any (Select AREA_CLOS_UIC.UIC From ” _ 
& "AREA_CLOS_UIC) and Area_G1l8_MOS-ZIPCODE = Any (Select 7 _ 
&8 "AREA_ZIPCODE-ZIP From AREA_ZIPCODE)" 


Public Const TotalIRR_MOSQuery = "Select Count(M0S) as 7 _ 
& "TOTAL_IRR_MOS From IRR Where IRR-MOS = Any (Select "” 
& "MNOS _INTEREST-MOS From MOS_INTEREST)" 


Public Const ArchivedFacility@ueryBegin = "Select * From Repository Where FAC_ID 


Public Const ArchivedFacility@ueryEnd = "' Order by MOVUIC" 


Public Const Qdef_AreaClosUICs = "Build AreaClosUIC" 
Public Const Qdef_AreaUICs = "Build AreaUIC” 

Public Const @Qdef_AreaFacIDs = "Build AreaFacID” 

Public Const AQdef_AreaG1L&UICZipMOS = "Build AreaG1&No0s” 
Public Const @Qdef_AreaG1L&UICZips = "Build AreaG1&Zip” 
Public Const Qdef_AreaZipCodes = "Build AreaZipCode"™ 
Public Const @Qdef_DropTable = "Drop Table” 

Public Const Qdef_FinanceCY = "Build FinanceCY" 

Public Const Qdef_MOSInterest = "Build MOSInterest” 
Public Const Adef _NoASSNxMOS = "Build NoASSNxMOS" 
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Public Const Tbl_AreaClosUICs = "AREA_CLOS_UIC" 
Public Const Tbl_AreaFacIDs = "AREA_FACID” 
Public Const Tbl_AreaG1I&UICZipMOS = "AREA_G18_N0OS"” 
Public Const Tbl_AreaG1l&UICZips = "AREA_G18_ZIP" 
Public Const Tbl_AreaUICs = "AREA_UIC"” 

Public Const Tbl_AreaZipCodes = "AREA_ZIPCODE"™ 
Public Const Tbl_AriesArchive = "REPOSITORY" 
Public Const Tbl_CommandPlan = "CMNDPLAN"” 

Public Const Tbl_Complex = "COMNPLEX_” 

Public Const Tbl_ErrorLog = "ERROR_LOG" 

Public Const Tbl_FinanceCY = "FINANCE_CY" 

PUBbLic Const THIZEFPS = “FRPS_~ 

Public Const Tb1_G1?Natl = "G1?Natl” 

Public Const Tbl_Interest = "INTEREST_” 

Public Const Tbl_MOSInterest = "MOS_INTEREST" 
Public Const Tb1l_NoASSNxMOS = "NoASSNxMOS" 
Public Const Tb1l_RPINFODT = "RPINFODT_” 

Public Const Tbl_ValidateUIC = "VALID_UIC" 
Public Const Tbl_ValidateUnit = "VALID_UNIT” 


Public Const ExTbl_AreaDistance = "AreaDistance™ 
Public Const ExTbl_AreaFacIDs = "AreaFacID” 


Public Const ExTbl_AreaUICs = "AreaUIC" 
Public Const ExTbl_PropFacility = "PropFacID” 
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Public 
Public 
Public 
Public 
Public 


Cons t 
Const 
Cons t 
Const 
Const 


Class_LDW = "OwlWindow"” 
Class_MapInfo = 
Class_Excel = "™XtMain" 

Class_ARIES = "ThunderfForm 


ARIES_Application = 


ba 
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"yvt32eOmditask1l00" 


v3-0 " 


Public Const SW Normal = 3 
Public Const SW Minimum = 2 


"Facility I) 
"Backlogged Maint" 
"Operating Cost" 
"Facility Age" 
"Facility Condition” 
"Facility Owned” 
"Competition” 

"Drill Attendance" 
"Area Loss Rate" 
"Area Xfer Rate” 
"Avg Area Manning” 
"RZA Distance” 
"Total AvarletClose)” 
SRR 

"Recruit Market" 
"Reassignments” 
"AMSA Distance" 
"ECS Distance" 
"Weekend Usage” 
"MOS Avail (Close)" 
"IRR Tos? 


conMeasureD® 
conMeasurel 
conMeasurece 
conMeasure3 
conMNeasureY 
conMeasureS 
conMeasureb 
conMeasure? 
conMeasured 
conMeasure’d 
conMeasurelO 
conMeasurell 
conMeasurele 
conMNeasurel3 
conMeasurel4 
conMeasurelS 
conMeasurelb 
conMeasurel? 
conMeasurel& 
conMeasurel4 
conMeasurecD 
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Public 


conTotalMeasures = 20 
conTotalInterimTables = 
conSingleMessages = 3 
conMaximumColumns = 4 
conFiveColumnWidth = 
conFourColumnwidth = 
conThreeColumnWidth 
conTwoColumnwWidth 
conOneColumnWidth 
MeasuresFrameIndex = 
NonGISFrameIndex = ] 
MapinfoFrameIndex = 
GISNonS@LFrameIndex 
SatLFrameIndex = 4 


Public 
Public 
Public 
Public 
Public 
Public 
Public 
Public 
Public 
Public 
Public 
Public 
Public 
Public 


L? 


3b? 
1210 
1630 
“iO 
370 
0 


ec 
1 


e 
= 3 
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ERR_ObjectExists = 301e 
ERR_TableExists = 3010 
ERR_TableNotExists = 33?b 
ERR_ExtrnTableNotAttached = 
ERR_FileNotFound = 53 
ERR_LockTableFailure = 3ell 
ERR_ProgressBarMaxExceeded = 
ERR_LDWRunning = § 
ERR_TooFewParameters 
ERR_InvalidUseOFNull 934 
ERR _NoCurrentRecord = 30cl 
ERR _ReqdFileIndexMissing = 


zy 


3078 


380 


30b1 
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Public 
Public 
Public 
Public 


Public 


ERR_ObjectUnloaded = 3b4 
ERR_NotValidPath = 3044 
ERR_DatabaseAlready0Open 
ERR_ItemNotInCollection 


DefaultErrorValue = -999 


Public 


Public 
Public 
Public 


FILE_Akron = 
FILE_Acropolis = 
FILE_AcropolisBackup = 
FILE_MajorCity = 


P\NMS_Access\Akron-MNDB" 
"\NS_Access\Acropolis-MDB" 
"\NS_Access\Acropolis-BAK" 
"\MapBasic\MapInfo\City_1e5-TAB" 


FILE_EROS = "\fMS_Access\Eros-MDB" 

FIEERExael = "“\EDW\NS_Excel \AriesTAB. TXT" 
FILE_GeoREF = "\MapBasic\UsarcData\Georef-TAB" 
FILE_LDW = "C2\LDW\LDWstud-EXE" 


FILE_LDW_ Template = "\LDW\Template\NULL_TAB-LDU" 
FILE_LDW_Excel = "\LDW\MS_Excel\AriesTAB-TXT~" 
FILE_LDW_DefaultSave = "\LDW\Template\Default-LDW~" 
FILE_LDW_ArchiveDir = "\LDWNArchive\" 

FILE_MapBasic = "\MapBasic\AriesArch-MBX" 
FILE_MapInfo = "C:\MAPINFO\MapInf oW’-EXE" 

FILE _MapWorkspace = "\MapBasic\AriesS@L-Wor” 
FILE_States = "\MapBasic\MapInfo\States- TAB" 
FILE_StateCapitals = "\MapBasic\MapInfo\Statecap-TAB" 
FILE_Teliko = "\MS_Access\Teliko-MDB" 
FILE_TelikoBackup = "\MS_Access\Teliko-BAK" 
FILE_Titan = "\MNS_Access\Titan-MDB" 


DB_ACROPOLIS = "\MS_ACCESSNACROPOLIS-mdb" 
DB_ACROPOLISBAK = "\MS_ACCESSNACROPOLIS-bak" 
DB_MEASURES = "\MS_ACCESS\Measures-mdb" 


Aries Measures 


(User Defined Type) 


Type Neasures_Type 
Archived As Boolean 
MovUIC_ Match As Boolean 
FacID As String * 5 
FacBacklogdMaint As Single 
OperatingCost As Single 
FacAge As Integer 
FacCond As String * § 
FacOwned As String * ] 
Competition As Integer 
AreaDrillAttend As Single 
AreaLossRate As Single 
AreaXferRate As Single 
AvgAreaMan As Single 
DistToRecruit As Single 
TotalAvailClos As Integer 
IRR As Integer 
RecruitMarket As Long 
Reassignments As Integer 
DistToAMSA As Single 
DistToECS As Single 
FacwkndUsed As Byte 
MOSAvailClos As Integer 
IRR_MNOS As Integer 

End Type 


Type MovingUnit_Type 
UIC As String * Lb 
FaclD As String. * 5 
UnitName As String 
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City As String 

State As String * 

ZipCode As String 
End Type 


* TU 


Type Facility_Type 
FacID As String * 5 
City AS Steing 
State As String * e 
ZipCode As String 

End Type 


* 


Type InfoTool_Type 
MapTable As String 
GeoFacID As String 

End Type 


Z0D 
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Module 4. ARIES PROCEDURES LIBRARY 


Purpose: A library module that contains all the procedures called by other procedures more 
than one time. 


Source Type: Visual Basic for Applications 
Source File: LIBRARY.BAS 
Code Listing: 


Attribute VB_Name = "libPROCEDURES" 


Declare Function GetClassName& Lib “user3e” Alias "GetClassNameA”™ _ 
(ByVal hwnd As Long. ByVal lpClassName As String. ByVal nMaxCount As Long) 


Declare Function ShowWindow& Lib "user3e” _ 
(ByVal hwnd As Long. ByVal nCmdShow As Long) 


Declare Function FindWindowg Lib “user3e”™ Alias "FindWindowA”™ _ 
(ByVal lpClassName As String, ByVal lpWindowName As String) 


Public Function KeyUpperNumeric(nkeyVal As Integer) As Integer 
cProcName = "FUNC:KEY_UPPER_NUMERIC"™ 


‘Passes Uppercase Letters 

‘Converts Lowercase to Uppercase 

"Passes (03539201:394955697758,9} & Cntrl Codes 
"REJECTS ALL else 


If nKeyVal > eb Then 
If Chr(nKeyVal) >= "a™ And Chr(nKeyVal) <= "2" Then 
nKeyVal = nKeyVal - 3e 
Ena it 


If Chr(nKeyVal) >= "A™ And Chr(nKeyVal) <= "Z" Then 
nKeyVal = nKeyVal 
Else 
nKeyVal = KeyNumeric(nKeyVal ) 
End eit, 
End If 


KeyUpperNumeric = nKeyVal 
End Fumetaon 


Private Function KeyNumeric(nKeyVal As Integer) As Integer 
cProcName = "FUNC: KEY_NUMERIC"™ 


Dim cValidNumeric As String 
cValidNumeric = "0123456789" 
If nKeyVal > eb Then 
If InStr(cValidNumeric, Chr(nKeyVal)) = O Then 
nKeyVal = Q 
E-mciel ti 
End) If 


KeyNumeric = nkeyVal 
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End Function 


Public Function ValidateMovUIC(ByVal cUIC As String) As Boolean 
cProcName = “FUNC: VALIDATE_MOVUIC" 


Dim rsValidateMovUIC As Recordset 


‘Develop Criteria for Search 
ValidateMovUIC = True 


‘Open Validation Table 
Set rsValidateMovUIC = dbAcropolis-QpenRecordset(Tbl_ValidateUIC, 
dbOpenTable. dbReadOnly) 
With rsValidateMovUIC 
~Index = "UIC" 
-Seek "=", cUIC 


‘Examine Table for first occurance of Moving Unit UIC 
If -NoMatch Then 
ValidateMNovUIC = False 


Else "Get Facility Information 
cMovUic-FacID = !Fac_ID 
cMovUic-UnitName = !UnitName 
cMovUic-City = !City 
cMovUic-State = !State 
cMovUic-ZipCode = !Zip 

End If 

-Close 

End With 


"Delete Recordset Object 
Set rsValidateMovUIC = Nothing 


End Function 


Public Function ValidateFacID(ByVal cFacID As Strings _ 
ByRef rsValidateFacID As Recordset) As Boolean 
cProcName = "FUNC: VALIDATE_FACID"” 


‘Develop Criteria for Search 
rsValidateFacID-Seek "=", cFacID 


"Examine Table for first occurance of FACID 
If rsValidateFacID-NoMatch Then 
ValidateFacID = False 
Else 
ValidateFacID = True 
End it 


End Function 


Public Function ComputeFacilityAge(ByVal DateAcquired As Date) As Integer 
cProcName = “FUNC: COMPUTE_FACILITY_AGE” 
Dim PresentDate As Date 


On Error Resume Next 
‘Minimum Facility Age Value (Default) 
ComputeFacilityAge = Q 


‘Today's Date 
PresentDate = Now 


If IsDate(DateAcquired) Then ‘Valid Date 
ComputeFacilityAge = DateDiff("m", DateAcquired. PresentDate) 
Eni if 


End Function 


Public Function DisplayMessage(ByVal cMsgText As Strings _ 
ByVal iMsgIcon As Byte, ByVal iMsgBtn As Bytes _ 
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cMsgCaption As String) As Integer 

DisplayMessage = MsgBox(cMsgText.i iMsgIcon + iMsgBtn, cMsgCaption) 
End Function 
Private Function FormatTime(ByVal iTime As Long) As String 

Dim iHour As Long 

Dim iMinute As Long 

Dim iSecond As Long 

Dim iRemainder As Long 


FormatTime = cQueryStartTime 


iHour = iTime \ 3b00 


iRemainder = (iTime - (iHour * 3600)) 
iMinute = iRemainder \ LO 
iSecond = iRemainder - (iMinute * £0) 


If Len(CStr(iHour)) = 2 Then 


FormatTime = CStr(iHour) g& ™:" 
Else 

Formatlime = "OO" & CStrtiHour) 2:7 
End If 


Tf encesercillinute)) = ¢ Then 
FormatTime = FormatTime & CStr(iMinute) @ ™:" 


Else 
FormatTime = FormatTime & "0" @&@ CStr(iMinute) & 7:" 
End If 
If Len(CcStr(iSecond)) = e Then 
FormatTime = FormatTime & CStr(iSecond) 
Else 
FormatTime = FormatTime & "0" & CStr(iSecond) 
End If 


End Function 


Public Function TableNotNULL (ByRef rsRecord As Recordset) As Boolean 
cProcName = "FUNC: TABLE_NOT_NULL"” 


On Error Resume Next 


TableNotNULL = True 


If rsRecord-AbsolutePosition = -1 Then 
TableNotNULL = False 
End Lf 


End Function 


Public Function QuerySumNotNULL (ByVal cSumResult As Variant) As Boolean 
cProcName = "FUNC: Q@UERY_SUM_NOT_NULL"” 


On Error Resume Next 

QuerySumNotNULL = True 

If IsNull(cSumResult) Then 
QuerySumNotNULL = False 

End If 


End Function 


Public Function QueryCountNotNULL (ByVal cSumResult As Variant) As Boolean 
cProcName = "FUNC: QUERY_COUNT_NOT_NULL” 


On Error Resume Next 
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QueryCountNotNULL = True 


If cSumResult = 0 Then 
QueryCountNotNULL = False 
EnGe it 


End Function 


Public Sub TrafficLight(ByVal Color As Long) 
cProcName = "TRAFFIC_LIGHT” 


With frmAriesMain 
Select Case Color 

Case vbRed 
'shpRedLite-FillColor = Color 
'shpYellowLite-FillColor = vbBlack 
'shpGreenLite-FillColor = vbBlack 
'cmdAriesBtn-Enabled = False 

Case vbYellow 
'shpRedLite-FillColor = vbBlack 
'shpYellowLite-FillColor = Color 
'shpGreenLite-FillColor = vbBlack 
'cmdAriesBtn-Enabled = False 

Case vbGreen 
'shpRedLite-FillColor = vbBlack 
'shpYellowLite-FillColor = vbBlack 
'shpGreenLite-FillColor = Color 
'cmdAriesBtn-Enabled = True 

Case vbBlack 
'shpRedLite-FillColor = Color 
'shpYellowLite-FillColor = Color 
!'shpGreenLite-FillColor = Color 
'cmdAriesBtn-Enabled = False 

End Select 
End With 


End Sub 


Public Sub GetPropFacilityInfo(ByRef cFacilityInfo As Facility_Type, 
ByRef rsFacilityData As Recordset) 
cProcName = "GET_FACILITY_INFO” 
Dim bValidFacility As Boolean 


On Error GoTo EH_GetPropFacInfo 
bValidFacility = ValidateFacID(cFacilityInfo-FacID. rsFacilityData) 


If bValidFacility Then 
With cFacilityiInfo 
-City = rsFacilityData! City 
-State = rsFacilityData!State 
-ZipCode = rsFacilityData!Zip 


End With 
Call LoadPropFacilityUICBox(cFacilityInfo.FacID) 
Endeelt 
Exit Sub 


EH GetPropFacInfo: 


Select Case Err-Number 
Case ERR_InvalidUseOFNull 
Resume Next 


Case Else "Trap all other Errors & Report 
Call QOutputERROR_LOG 
Resume Next 
End Select 
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End Sub 


Public Sub DisplayPropFacilityInfo(Bykef cFacility As Facility_Type) 
cProcName = "DISPLAY_FACILITY_INFO" 


With frmAriesMain 
'txtPropFacID-Text = cFacility-FacID 
'txtCity-Text = cFacility-City 
'txtState-Text = cFacility-State 
'txtZipCode-Text = cFacility-ZipCode 
End With 


Call DisplayPropFacilityUnitNames 
End Sub 


Public Sub LoadPropFacilityUICBox(ByRef cFacID As String) 
cProcName = "GET_PROPOSED_FACILITY_UIC_INF0O" 
Dim i As Integer 
Dim rsFacilityUICs As Recordset 


Set rsFacilityUICs = dbAcropolis-0penRecordset(Tbl_ValidateUIC. db0penTable; 
dbReadoOnly) 


frmAriesMain!cboUIC.Clear 
With rsFacilityUICs 
-MoveFirst 
Do Uneil «EOF 
If cFacID = !Fac_ID Then 
frmAriesMain!cboUIC-AddItem !UIC 
End If 
-MoveNext 
Loop 
-Close 
End With 


'Test whether any Units are assigned 
With frmAriesMain 
If Not 'cboUIC-ListCount = O Then 
'choUIC-Text = !cboUIC-List(D) 
Else 
'cboUIC.Text 
End If 
-Refresh 
End With 


"-NONE-” 


Set rsFacilityUICs = Nothing 
Ende Sub 


Public Sub DisplayPropFacilityUnitNames() 
cProcName = "DISPLAY_PROPOSED_FACILITY_UNITNANMES” 
Dim i As Integer 
Dim rsFacilityInfo As Recordset 
Dim rsFacilityUnit As Recordset 


Set rsFacilityInfo = dbAcropolis-OpenRecordset(Tbl_ValidateUIC. db0penTable, 
dbRKead0Only) 


With frmAriesMain 
rsFacilityInfo-Index = "UIC" 
'istbxUnitName-Clear 


If Not !cboUIC-ListCount = DO Then 
For 1°= 270) low choli eC. Eastcount — 1 
rsFacilityInfo-Seek "=". !cboUIC-.List(i) 
If Not rsFacilityInfo-NoMatch Then 
'lstbxUnitName-AddItem rsFacilityInfo!UIC & vbTab _ 
& rsFacilityInfo!UnitName 
Ene Lt 
Next 1 
Else 
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YenpoulG-. lexte—-— -NUNE—~ 

Set rsFacilityUnit = dbAcropolis-0penRecordset(Tbl_ValidateUnit, 
db0penTable. dbRead0Only) 

rsFacilityUnit-Index = "FACID” 

rsFacilityUnit-Seek "=", !txtPropFacID-Text 


If rsFacilityUnit-NoMatch Then 
'lstbxUnitName-AddItem ™** NOT AVAILABLE *x*" 
Else 
'lstbxUnitName-AddItem rsFacilityUnit!UnitName 
Ena If 
rsFacilityUnit-Close 
End if 
-Refresh 
End With 


rsFacilityInfo-Close 

Set rsFacilityInfo = Nothing 

Set rsFacilityUnit = Nothing 
End Sub 


Public Sub DisplayTreeViewInfo(ByRef tMapFacIDs() As InfoTool_Type, 
ByVal Index As Long) 
cProcName = “DISPLAY_TREEVIEW_INFO" 
Dim rsFacilityUICs As Recordset 
Dim bUICExists As Boolean 
Dim nodeGIS As Node 
Dim i As Integer 
Dim j As Integer 
Dim cFacID As String * § 
ReDim cKey(Index) As String * § 


Set rsFacilityUICs = dbAcropolis-0OpenRecordset(Tbl_ValidateUIC. db0penTable, 
dbReadonly) 


With frmAriesMain 
'trvGISData-Enabled = True 
Set nodeGIS = !trvGISData-Nodes-Add(. 31 "ROOT™, "USARC: GeoREF"™) 


For i = CInt(Index) To 1 Step -l 
cKey(i) = tNapFacIDs(i)-GeoFacID 
cFacID = tMapFacIDs(i)-GeoFacID 
Set nodeGIS = !trvGISData-Nodes-Add("ROOT", tvwChild, CStr(cKey(i)), 
cFacID) 
nodeGIS-Expanded = True 


bUICExists = False 
rsFacilityUICs-MNoveFirst 
Do Until rsFacrlityUICs.sE0F 
if eRactDeaerst acilityUlIGs!Fac_IDy then 
Set nodeGI§ = !trvGISData-Nodes-Add(cKey(i).1 tvwChilds 4 
rsFacilityWIcstur@ 
nodeGIS-Expanded = True 
bUICExists = True 
End iT 
rsFacilityUICs-MoveNext 
Loop 


If Not bUICExists Then 
Set nodeGIS = !trvGISData-Nodes-Add(cKey(i).1 tvwChild, 1. "™None™) 
nodeGIS-Expanded = True 
End If 
Next i 
nodeGIS-EnsureVisible 
-Refresh 


rsFacilityUICs-Close 
Set rsFacilityUICs = Nothing 
Ene Wath 
End Sub 
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Public Sub LoadMovUIClistbox(ByRef cMovUic As MovingUnit_Type) 
cProcName = "LOAD_MOVUIC_LISTBOX" 


Dim iUnitNameLength As Byte 
Dim cUnitName As String 


cUnitName = cMovUic-UnitName 
iUnitNameLength = Len(cUnitName) 


With frmAriesMain! lstbxMovUIC 
-Clear 
-Enabled = True 
-AddiItem "“FacID: ™ & cMovUic-FacID 
-AddiItem " 2 


If iUnitNameLength > 18 Then 
-AddiItem Left(cUnitName, 18) 


If iUnitNameLength > 3b Then 
-AddItem Mid(cUnitName, 19, 18) 
-AddItem Right(cUnitNamei (iUnitNameLength - 3b)) 


Else 
-AddiItem Right(cUnitName, (iUnitNameLength - 18)) 
Ena If 
Else 
-AddItem cUnitName 
End If 
-AddItem " Ww 


-AddItem cMovUic.-City 
-AddiItem cMovUic-State & ™, ™ & cMovUic-ZipCode 
End With 
End Sub 


Public Sub LoadFacilityListBox(ByVal Index As Integer, ByVal rsValidFacID 
As Recordset. ByVal iUIC_Flag As Byte) 
cProcName = “LOAD_FACILITY_LISTBOX" 


Dim iUnitNameLength As Byte 
Dim cUnitName As String 


cUnitName = rsValidFacID!UnitName 
iUnitNameLength = Len(cUnitName) 


‘Display Facility specific information 
With frmAriesMain! lstbxFacID (Index) 
-Clear 
-Enabled = True 
If iUIC_Flag = QO Then 
-AddiIitem "UIC: ™ & rsValidFacID!UIC 
Else 
-AddiItem "UIC: ™ & "-NONE-" 
End Lf 
-AddiItem " 


‘Parse Unitname to fit Listbox w/out needing scrollbars 
If iUnitNameLength > 18 Then 
-AddItem Left(cUnitName, 18) 


If iUnitNameLength > 36 Then 

-AddItem Mid(cUnitName, 19, 184) 

-AddItem Right(cUnitName, (iUnitNameLength - 3b)) 
Else 

-AddItem Right(cUnitName. (iUnitNameLength - 18)) 
End: If 


Else 
-AddItem cUnitName 
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Ends ip 


‘Display Citys Statey Zip information 
-AddItem "™ a 
-AddItem rsValidFacID!City 
-AddiItem rsValidFacID!State & "1 "™ & rsValidFacID!Zip 
End With 
End Sub 


Public Sub DisplayStatus(ByVal cMessage As String. Index As Byte) 


With frmAriesMain! fraStatus (Index) 
If Not -Enabled Then 
-Enabled = True 
-Refresh 
End If 
End With 


With frmAriesMain! ]1stbxStatus (Index) 
If Not (-Visible) Then 
-Visible = True 
-Refresh 
Bnceeit 


If Not (Len(frmAriesMain! txtStatus(Index)) = 0) Then 
-AddItem frmAriesMain!txtStatus(Index)-Text 
-Refresh 

End. if 

End With 


With frmAriesMain! txtStatus (Index) 
-Text = cMessage 
-Refresh 
If Not (cMessage = CompleteMSG) Then 
Call IncrementProgressBar 
Else 
-Enabled = False 
-Refresh 
End If 
End With 


Call ElapsedTimer(Times()) 
End Sub 


Public Sub IncrementProgressBar() 
On Error Resume Next 
iProgressIndicator = iProgressIndicator + ] 
frmAriesMain!barS@Lstatus-Value = iProgressIndicator 
frmAriesMain! fraS@Lstatus-Refresh 
End Sub 
Public Sub BuildAccessTable(ByVal cTableName As String. cQdefnName As String, 
cQdefText As String) 
cProcName = "BUILD_ACCESS_TABLE™” 
Dim qdS@L As QueryDef 
On Error GoTo EH_BuildTable 
‘Build SQL Query definition for Recordset Object 
Set qdS@L = dbAcropolis-CreateQueryDef (cadefnName. c@defText) 


dbAcropolis-Execute c@defnName 


‘Delete Query Definition & Table 
dbAcropolis-QueryDefs-Delete c@adefnName 


Exit Sub 
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EH BuildTable: ‘errer Handler 
Select Case Err-Number 


Case ERR_ObjectExists ‘Delete the Pre-Existing Query Definition 
dbAcropolis-QueryDefs-Delete c@defnName 
Resume 
Case ERR_TableExists ‘Delete the Pre-Existing Table 
Call DeleteAccessTable(cTableName) 
Resume 
Case Else ‘Trap all other Errors & Report 


Call OutputERROR_LOG 
Resume Next 
End Select 
End Sub 


Public Sub DeleteAccessTable(ByVal cTableName As String) 
cProcName = "DELETE_ACCESS_TABLE"™ 


Dim qdDropTable As QueryDef 
Dim cDropTableDefn As String 


On Error GoTo EH_DeleteTable 
cDropTableDefn = "Drop Table ™ & cTableName 


Set qdDropTable = dbAcropolis-CreateQueryDef (Qdef_DropTable. cDropTableDefn) 
dbAcropolis-Execute Qdef_DropTable 


dbAcropolis-QueryDefs-Delete Qdef_DropTable 
Bx? tesub 


EH _DeleteTable: 
Select Case Err-Number 
Case ERR_ObjectExists 
dbAcropolis-QueryDefs-Delete Qdef_DropTable 
Resume 


Case ERR_TableNotExists 
Resume Next 


Case Else 
Call OutputERROR_LOG 
Resume Next 
End Select 
Ende sub 


Public Sub ElapsedTimer(ByVal cTime As String) 
Dim iHourNow As Long 
Dim iMinuteNow As Long 
Dim iSecondNow As Long 


Dim iStartHour As Long 
Dim iStartMinute As Long 
Dim iStartSecond As Long 


Dim iElapsedTime As Long 
Dim iStartTime As Long 
Dim iNowTime As Long 


Dim cElapsedTime As String * 6 


iHourNow = CLng(Left(cTime. 2)) 
iMinuteNow = CLng(Mid(cTime. 4.4 2)) 
1SecondNow = CLng(Right(cTime. 2)) 


iStartHour = CLng(Left(cQueryStartTime., 2)) 
iStartMinute CLng(Mid(c@ueryStartTime.r 4, 2)) 
iStartSecond CLng(Right(cQueryStartTime, 2)) 
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iStartTime = (iStartHour * 3bL00) + (iStartMinute * LO) + iStartSecond 


iNowTime = (iHourNow * 3600) + (iMinuteNow * L0) + iSecondNow 
iElapsedTime = iNowTime - iStartTime 
cElapsedTime = FormatTime(iElapsedTime) 


With frmAriesMain 
'AriesStatusBar.Panels(3)-Text = "Elapsed " & cElapsedTime 
-Refresh 
End With 
End) Sub 


Public Sub TimeDelay(ByVal cTime As String. _ 
ByVal iTimeDelay As Integer) 
cProcName = "TIME_DELAY” 
Dim iSecond As Integer 
Dim iMinute As Integer 
Dim iNowMinute As Integer 
Dim iNowSecond As Integer 


Dim i€xitTime As Integer 
Dim bRolloverFlag As Boolean 


bRolloverFlag = False 
iSecond = CInt(Right(cTime. 2)) 
iMinute = CInt(Mid(cTime, 4, 2)) + J 


iExitTime = iSecond + iTimeDelay 
If if€xitTime > 59 Then 
1ExitTime = if€xitTime - 54 
bRolloverFlag = True 
End LF 


iNowSecond = CInt(Right(Times(), 2)) 
If bRolloverFlag Then 
iNowMinute = CInt(Mid(Time$(). 44 2)) 
Do 
iNowMinute CInt(Mid(Time$(). 44 2)) 
iNowSecond CInt(Right(Time$()4 2)) 
Loop While iNowMinute < iMinute 
Else 
Do 


iNowSecond = CInt(Right(Times(). 2)) 
Loop While iNowSecond < iExitTime 
End If 
End Sub 
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Module 5. OLE PROCEDURES LIBRARY 


Purpose: A library module that contains all the procedures supporting OLE 
communications between COTS components. 


Source Type: Visual Basic for Applications 
Source File) OLE LIBRARY.BAS 


Code Listing: 


Attribute VB Name = ™1ib0LE" 
Option Explicit 


Public Function ConnectOLEobject(ByRef objJOLE As Object. ByVal cOLEobjectName 
As String) As Boolean 
cProcName = "FUNC: 0PEN_OLE_OBJECT"™ 


On Error Resume Next 


"Set Boolean Flags 
ConnectOLEobject = True 
Set objJOLE = Nothing 


‘Initiate a new instance 
Set objOLE = CreateObject (cOLEobjectName) 


"Verify OLE connection established 

If objJOLE Is Nothing Then "OLE Error 
Call DisplayMessage(OLEfailedMSG. vbExclamation. vb0K. con0LEcaption) 
ConnectOLEobject = False 

Else 
objOLE-Visible = False 

End If 


DoEvents 
End Function 


Public Function OpenLDWobject() 
cProcName = “FUNC: 0PEN_LDW_OBJECT" 
Dim cFilePath As String 


On Error GoTo EH_OpenLDW 


OpenLDWobject = True 

cFilePath = FILE_LDW 

‘Determine if an Instance of LDW already running 
iLDWwinID = FindWindow(Class_LDW, vbNullString) 


If iLDWwinID Then 
Call ResetLDWobject 

Else 
iLDWwinID = Shell(cFilePath, vbNormalFocus) 
frmAriesMain!mnuF CloseLDW-Enabled = True 
‘Clear LDW Splash Screen 
SendKeys "~", True 

EnGuut 

Exit Function 


EH OpenLDU: 'LDW Failed to Load properly. 
OpenLDWobject = False 


Zo) 


End Function 


Public Function VerifyLDWobjectConnection(ByVal cMNessageText As String) As 
Boolean 
Dim iLDW_hWnd As Long 


iLDW_ hWnd = FindWindow(Class_LDW, vbNullString) 
If iLDW hWnd = O Then 
VerifyLDWobjectConnection = False 
Call DisplayMessage(cMNessageTexti vbCritical, vb0OKOnly.i conAPIcaption) 
Else 
VerifyLDWobjectConnection = True 
ShowWindow iLDW hWnd. SW Minimum 
ShowWindow iLDW_ hWnd. SW_Normal 
End> Ef 
End Function 


Public Sub InitializeMapInfoMenu() 
cProcName = “"INITIALIZE_MAP_MENU"” 


objGeoSelect-Do "Create Menu ""NapperShortcut"™” ID L? As "7(-"" " 
End Sub 


Public Sub InitializeMapInfoToolbar() 
cProcName = “INITIALIZE_MAP_TOOL_BAR” 


objGeoSelect-Do “Create ButtonPad ""InfoTool"™” As 7 & _ 
"ToolButton ID 501 DrawMode 34 Calling OLE ""ProcessInfoToolButton"™"" 


End Sub 


Public Sub InitializeMapInfoStatusBar () 
cProcName = "“INITIALIZE_MAP_STATUS_BAR"” 


objGeoSelect-Do "Set Map Display Zoom" 

objGeoSelect-Do "Alter Menu Item ID 1101 Check" 

objGeoSelect-Do "Alter Menu Item ID 110¢ UnCheck” 

objGeoSelect-Do "Alter Menu Item ID 1103 UnCheck” 
End Sub 


Public Sub OpenUS_StatesLayer() 
cProcName = "DISPLAY_US_STATES_LAYER" 


Dim cFilePath As String 


cFilePath = Chr(34) & App-Path & FILE_States & Chr(34) 
ob jGeoSelect-Do "Open Table ™ & cFilePath & ™ Interactive” 


End Sub 


Public Sub OpenUSARC_GeoRefLayer() 
cProcName = “"DISPLAY_USARC_GEOREF_LAYER" 


Dim cFilePath As String 


cFilePath = Chr(34) & App-Path & FILE_GeoREF & Chr(34) 
objGeoSelect-Do "Open Table ™ & cFilePath & ” Interactive” 


End Sub 


Public Sub OpenStateCapitalsLayer() 
cProcName = "DISPLAY_STATE_CAPITALS_LAYER” 


Dim cFilePath As String 


cFilePath = Chr(34) & App-Path & FILE_StateCapitals & Chr(34) 
objGeoSelect-Do “Open Table " & cFilePath & ™ Interactive” 
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End Sub 


Public Sub OpenMajorCityLayer() 
cProcName = "DISPLAY_MAJOR_CITIES_LAYER” 


Dim cFilePath As String 


cFilePath = Chr(34) & App-Path & FILE_MajorCity & Chr(34) 
objGeoSelect-Do "Open Table ” & cFilePath & " Interactive” 


End Sub 


Public Sub DisplayMapLabels() 
cProcName = "DISPLAY_MAP_LABELS"” 


objGeoSelect-Do "Map From Statecap., City_125. Georef.: States” 
iMapInfoWinID = CLnglobjGeoSelect-Eval("FrontWindow()™)) 
objGeoSelect-Do "Set Map Redraw Off” 


‘State Capitals layer Labels & Symbols 

objGeoSelect-Do "Set Map Layer ""Statecap”™” Display Global Selectable Off " 

objGeoSelect-Do "Set Map Layer ""Statecap"™" Label Auto On Overlap On "7 & _ 
"Duplicates On With Proper$(Capital) " 

objGeoSelect-Do "Set Map Layer ""Statecap"™” Label Line Simple 7 _ 
2 "Position Above Offset 3 Font (""Arial"", 8035,8,:835886408,16777215) 7 _ 
&® "Global Symbol (35. 16711680, 18) " 

objGeoSelect-Do "Set Map Layer ""Statecap"™" Label Visibility Zoom (400, 

eon) 


= 7 Unies ona ec 


'Major City layer Labels & Symbols 
objGeoSelect-Do "Set Map Layer ""City_125"" Display Global Selectable Off " 
objGeoSelect-Do "Set Map Layer ""City_125"" Label Auto On Overlap On” & 
"Duplicates On With Propers(City) Zoom (0, 3000) Units ""mi"™" On ” 
objGeoSelect-.Do "Set Map Layer ""City_125"" Label Line Simple 7 _ 
& "Position Above Offset 3 Font (""Arial"™", 291,10,;16776960;,0) 7" _ 
& "Global Symbol (4b. 1677b9b0, le) . 
objGeoSelect-Do "Set Map Layer ""City_125"" Label Visibility Zoom (250, 
OGG 22 
B. list se na oe 


'GeoREF layer Labels & Symbols 
objGeoSelect-Do "Set Map Layer ""Georef"" Display Global Selectable On " 
objGeoSelect-Do "Set Map Layer ""Georef"" Label Auto On Overlap On” & _ 
"Duplicates Off With Propers(Fac_city) Zoom (0, S00) Units ""mi"™” On ” 
objGeoSelect-Do "Set Map Layer ""Georef"" Label Line Simple ” _ 
& "Position Above Right Offset 3 Font (""Arial"", 8§03,:10,:327685:16777215)" 


& ™ Pen (24114,32?7b8) Global Symbol (45, 32768. 18) " 


objGeoSelect-Do "Set Map Layer ""Georef"" Label Visibility Zoom (0, 700) ”" _ 


°° “UnTts: mie oo 


‘States layer Labels 

objGeoSelect-Do "Set Map Layer ""States"" Selectable Off Label Line Simple "™ 

objGeoSelect-Do "Set Map Layer ""States"" Label Auto On Overlap On ” 
& "Duplicates On Offset 0" 

objGeoSelect-Do "Set Map Layer ""States"" Label With Propers(State) ” 


objGeoSelect-Do "Set Map Layer ""States"" Label Font (""Bookman Old Style7™ "1" 


& %)827,18,0,1b77?e15) " 
objGeoSelect-Do "Set Map Layer ""States""” Label Visibility Zoom (100. 2000) 


2 TUnLiss som oo 


objGeoSelect-Do "Set Map Redraw On” 
End Sub 


Public Sub PositionMap() 
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cProcName = "POSITION_MAP" 


objGeoSelect-Do "Map From Statecap. City_125, Georef.i States" 
objGeoSelect-Do "Set Map Center (-9b,37?) Zoom 3500 Units ""™mi"™"™" 
objGeoSelect-Do "Set Map Layer O Editable On" 


End Sub 


Public Sub MapInfoQuery(ByVal cFacID As String) 


cProcName = "MAPINFO_QUERY™ 


Dim i As Byte ‘Loop Variable 
Dim cFilePath As String 
Dim rsProposedFacility As Recordset 


Set rsProposedFacility = dbAcropolis- 0penRecordset(ExTbl_PropFacility, 
dbOpenDynaset) 
With rsProposedFacility 


‘Delete Previous Proposed Facilities 
Do Until -EOF 
-Delete 
-MoveNext 
Loop 
‘Output Proposed Facility ID to External Database 
-AddNew 
'Fac_ ID = cFacID 
-Update 
-Close 
End With 
Set rsProposedFacility = Nothing 


objGeoQuery-Visible = True 

If Not bMapBasicRunning Then 
cFilePath = Chr(34) & App-Path & FILE_MapWorkspace & Chr(34) 
objGeoQuery-Do "Run Application ™ & cFilePath 

lave] Ils 


cFilePath = Chr(34) & App-Path & FILE_MapBasic & Chr(34) 
frmAriesMain!tabAriesMap-Tab = ] 


objGeoQuery-Do "Run Application ™ & cFilePath 
bMapBasicRunning = True 


Call DisplayStatus(AreaGl&NSG. GISNonSQ@LFrameIndex) 
Call DisplayStatus (AreaIRRMSG. GISNonS@LFrameIndex) 
Call DisplayStatus (AreaQMANSG. GISNonSQlLFrameIndex) 


End Sub 


Public Sub OutputAriesMeasuresExcel(ByRef aMeasures() As Measures_Type. ByVal 


On 


iFacIndex As Byte) 
cProcName = "OUTPUT_ARIES_MEASURES_EXCEL” 


Dim objWorkSht As Object 
Dim cFilePath As String 


Dim i As Byte 
Dim j As Byte 


Error GoTo EH_ExcelMeasures 

Screen-MousePointer = vbHourglass 

If ConnectOLEobject(objExceli "“Excel-Application™) Then 
objExcel-Visible = True 


objExcel-Workbooks-Add 


Set objWorkSht = objExcel-ActiveSheet 
With objWorkSht 
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-cells(1l, 1)-Value = "ALTERNATIVES" 

-cells(e.1 1)-Value = "NAME" 

-cells(e.i 2)-Value = “NUMBER” 

-cells(e.1 3)-Value = "NUNBER” 

-cells(e.i 4)-Value = "NUMBER" 

~-cells(e.i1 5)-Value = "“NUNBER"™ 

-cells(e.i b)-Value = "“NUNBER"™ 

-cells(e@, 7)-Value = "LABEL" 

-cells(e@.1 &)-Value = "NUMBER" 

-cells(e.1 4)-Value = “NUMBER” 

-cells(e. 10)-Value = "NUMBER" 

-cells(2, 11)-Value = "NUMBER" 

-cells(e.1 1e)-Value = "“NUMNBER® 

-cells(e.1 15)-Value = "NUMBER" 

-cells(e.i1 14)-Value = "NUNBER"™ 

-cells(e.1 15)-Value = "NUMBER"™ 

-cells(e@.1 1b)-Value = "NUMBER" 

-cells(2@.1 17)-Value = "NUMBER" 

-cells(e2@, 17)-Value = "LABEL" 

-cells(e.1 18)-Value = "NUMBER" 

-cells(e@.1 19)-Value = "NUMBER" 

-cells(e. 20)-Value = "NUMBER" 

-cells(e@., 21)-Value = "NUMNBER® 

‘Output Measure Titles for LDW Import 

-cells(3., 1)-Value = "NAME" 

-cells(3,i 2)-Value = "Closing_Unit_Xfers" 

-cells(3., 3)-Value = "Avail_MOS_ClosUnits" 

-cells(3., 4)-Value = "IRR_Available" 

-cells(3., 5)-Value = "Avail_MOS_IRR" 

-cells(3, b)-Value = "Fac_Age” 

-cells(3., ?7?)-Value = “Fac_0Qwned" 

-cells(3. &)-Value = "Fac_Qperating_Costs" 

-cells(3, 9)-Value = “"Dist_to_ANSA" 

-cells(3, 10)-Value = "Dist_to_ECS" 

-cells(3, 11)-Value = “"Area_Transfer_Rate" 

-cells(3., 12)-Value = "Avg_Area_Manning"” 

-cells(3, 13)-Value = “Area_Drill_Attendnc" 

-cells(3., 14)-Value = "Dist-to-Recruiter"” 

-cells(3, 15)-Value = "Recruit_Market" 

-cells(3., 1b)-Value = "Reassignments" 

~-cells(3., 17)-Value = "Fac_Condition” 

-cells(3, 18)-Value = "Competition" 

-cells(3.1 19)-Value = "Fac_Weekend_Use" 

-cells(3., 20)-Value = "Fac _Backlogd_Maint” 

-cells(3, ¢21)-Value = "Area_Loss_ Rate" 

DoEvents 

For i = O To ifacIndex 
j=zi+ 4 
-cells(ji 1)-Value = ™'" @ aMeasures(i)-.FacID 
-cells(ji e)-Value = aMNeasures(i)-TotalAvailClos 
-cells(ji 3)-Value = aMeasures(i)-MNOSAvailClos 
-cells(j.i 4)-Value = aMNeasures(i)-IRR 
-cells(ji 5)-Value = aMeasures(i)-IRR_MOS 
-cells(j.i b)-Value = aMeasures(i).FacAge 
-cells(ji ?)-Value = "™'" g@ aMeasures(i).FacOwned 
-cells(j1 &8)-Value = aMeasures(i)-QperatingCost 
-cells(ji 9)-Value = aMNeasures(i)-DistToAMSA 
-cells(j.i 10)-Value = aMeasures(i)-DistToECS 
-cells(ji 11)-Value = aNeasures(i)-AreaXxferRate 
-cells(j.i le)-Value = aMeasures(i)-AvgAreaNan 
-cells(ji 13)-Value = aMNeasures(i)-AreaDrillAttend 
-cells(j.i 14)-Value = aMeasures(i)-DistToRecruit 
-cells(j.i 15)-Value = aNeasures(i)-RecruitMarket 
-cells(j.i 1b)-Value = aNeasures(i)-Reassignments 
-cells(j.i 17)-Value = ™'" @ aMeasures(i)-FacCond 
-cells(j.1 18)-Value = aNeasures(i)-Competition 
-cells(j.i 19)-Value = aNeasures(i)-FacwWkndUsed 
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-cells(j. 20)-Value 
-cells(j.i 21)-Value 


DoEvents 
Next i 
1)-Value = 


-cells(4Y, " MOVING UNIT" 


End With 


cFilePath = App-Path & FILE_Excel 
SendKeys "“%FA"., True 
SendKeys cFilePath. True 

2Zt" 4 Teue 
"{down}t{down}{down}"™, 
"ZS". True 

"ZY~". True 


SendKeys 
SendKeys 
SendKeys 
SendKeys 


True 


If Not objExcel Is Nothing Then 
objExcel-ActiveWorkBook-Close False 
End If 


objExcel-Quit 
Set objExcel = 
Endeié 


Nothing 


Screen-MousePointer = vbDefault 
Exit Sub 
EH_ExcelMeasures: 
Call OutputERROR_LOG 
Set objWorkSht = Nothing 


End Sub 


Public Sub ResetLDWobject() 
cProcName = "RESET_LDW_OBJECT" 


If VerifyLDWobjectConnection(APIfailedMSG) 
SendKeys "4FN", True 
SendKeys "ZN". True 
DoEvents 
End If 
End sub 


Public Sub ImportLDWdata() 
Dim cFilePath As String 
Dim iLDW_ hWnd As Long 


If bLDWactive Then 


VerifyLDWobjectConnection (APIfailedMSG) 


'Load LDW Template File 


cFilePath = App-Path & FILE_LDW_Template 
SendKeys "%F0", True 

SendKeys cFilePath. True 

SendKeys "{ENTERILENTER}"4 True 

DoEvents 


‘Import Excel Tab delimited file 
cFilePath = App-Path & FILE_LDW_Excel 
SendKeys "%FI", True 

SendKeys 
SendKeys 
SendKeys 
DoEvents 


True 
True 


cFilePath, 
"ZYZSZNZ0%4 


Call SendCommentsLDwW 


"{tab}itab}{down}itab}{fdown}{down}i{down}t{down}-", 


aMeasures(i).-FacBacklogdMaint 
aMeasures(1)-AreaLossRate 


Then 


True 


‘Save Temp file of Imported measure comparisions 
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cFilePath = App-Path & FILE_LDW_DefaultSave 
SendKeys "“FA"™, True 
SendKeys cFilePath. True 
SendKeys "ZY". True 
DoEvents 
Ea Glesiet 
End Sub 


Public Sub SendCommentsLDwW() 
Dim rsFacilityInfo As Recordset 
Dim i As Byte 
Dim j As Byte 
Dim cFacID As String * 5 
Dim cCity As String 
Dim cState As String * 2 


On Error GoTo EH_Comment 


Set rsFacilityInfo = dbAcropolis-0OpenRecordset(Tbl_ValidateUnit. db0OpenTable;, 


dbReadOnly) 


With rsFacilityInfo 
sindex = “FACED™ 


For 1= 0To Y 

-Seek "=", aFacID(i) 

If Not -NoMatch Then 
cFacID = !Fac_ID 
Geity =) ' City 
cState = !State 
‘Send location information to LDU 
SendKeys "ZEMN~". True 
For j = O To i 

SendKeys "“{down}". True 

Next j 
SendKeys "~{Tab}{Tab}{Tab}". True 
SendKeys cFacID.i True 
SendKeys "~", True 
SendKeys cCity & "1 7 & cState.s True 
SendKeys “{ftab}{tab}~" 

Endo lf 

Next i 
End With 
Set rsFacilityInfo = Nothing 


Exit Sub 


EH Comment: 
Exaeesub 
End Sub 


Public Sub ViewLDWmatrix() 
Dim iLDW_hWnd As Long 


If bLDWactive Then 
VerifyLDWobjectConnection (APIfailedMSG) 
DoEvents 
SendKeys "Z%VM~-"1 True 

Ena If 

End Sub 


Public Sub ActivateLDWReports() 


‘Print ARIES Model Hierarchy w/ Global weights 
SendKeys "Z%We". True 

SendKeys "““ZH{down}G"., True 

Call TimeDelay(Times()4 2) 

SendKeys "%FP", True 

Call TimeDelay(Times()4 2) ' e¢ second delay 


Zon 


SendKeys "~~", True 
Call TimeDelay(Time$(), 13) ‘13 Second delay 


"Print ARIES Model Stacked bar ranking 

SendKeys "ZSB", True 

Call TimeDelay(Time$()4 2) 'e Second delay 
SendKeys "~~", True 

SendKeys "4“FP~", True 


Call TimeDelay(Times(), 5S) 'S Second delay 


‘Print ARIES Model Comment Summary 
SendKeys "ZR00~", True 
SendKeys "ZFP", True 


Call TimeDelay(Times(), 5) 'S Second delay 


‘Change Printer Setup for Landscape Mode 
SendKeys "“FRZL~", True 
Call TimeDelay(Time$(). 1) ‘1 Second delay 


"Print ARIES Model Preference Set Summary 
SendKeys "ZSP~", True 
SendKeys "AFP", True 


Call TimeDelay(Times(). 5) ‘S Second delay 
‘Print ARIES Model Ranking results matrix 
SendKeys "““SMMN~", True 

SendKeys ““AFP"., True 

Call TimeDelay(Time$(). 5S) 'S Second delay 
‘Change Printer Setup for Portrait Mode 
SendKeys "“FRZR~", True 


Call TimeDelay(Time$(), 1) ‘l Second delay 
End Sub 
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Module 6. OLE OBJECT CLASS DEFINITION 


Purpose: An object class description necessary for communicating with the integrated 
MapInfo component. 


Source Type: Visual Basic for Applications 
Source File. OLE CALLBACK.CLS 
Code Listing: 


VERS LONG i. CRASS 


BEGIN 
MultiUse = -lL 'True 
END 


Attribute VB_Name = "clsOLECallback” 
Attribute VB_Creatable = False 
Attribute VB_Exposed = True 
Option Explicit 


Private Function GetField(ByVal theStr As String, ByVal delimiter As String, _ 
ByVal whichField As Integer) As String 
cProcName = "FUNC:GET_FIELD” 


Dim 1 As Integer 

Dim startPos As Integer 

Dim argCount As Integer 

Dim tmpStr. result As String 


'x aif the input string was null, or they asked for a field # less than 1]; 
'x return an empty string as the result 
If Len(theStr) = 0 Or whichField < 1] Then 
GetField = "™" 
Exit Function 
End If 


'x loop through til we get the field we want. If the string contains fewer 
'x fields than the field number requested. a zero-length string is returned. 
argCount = 0 
tmpStr = theStr 


Do 
argCount = argCount + J} 
result = Lefts(tmpStri InStr(tmpStr., delimiter) - 1) 
tmpStr = Mids(tmpStr.i InStr(tmpStr.i delimiter) + 1) 
Loop While InStr(tmpStr.i delimiter) > O And argCount < whichField 


'x af we dropped out of the while loop because InStr() returned 0. and 
'x we haven't gotten to the desired field yet, take one more step in case 
'* we are actually looking for the last field in the string- 

If argCount < whichField Then 


argCount = argCount + } 
result = tmpStr 
Engr Li 


'x af we found our field, argCount will equal whichField- return the 
'x result string. otherwise. return a zero-length string 
If argCount = whichField Then 
GetField = result 
Else 
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GetFieldy= 
End If 


End Function 
NOOO OOOO OOOO OOOO OOOO gai: 
; ProcessInfoToolButton 
: This method is called when the custom tools defined in MapInfo 
; in the "InitializeNapInfoConnection” are used in the map window. 
: This method determines which tool was used ( a point select tool, 
' and a rectangle select tool ).1 and performs the appropriate action 
Noo OOOO OOOO OOOO OOOO iii aa ak 
Public Sub ProcessInfoToolButton(ByVal CommandInfoText As String) 

cProcName = "PROCESS_TOOL_BUTTON” 


Dim iSelectedButton As Integer 
Dim fXpt As Double 

Dim fYpt As Double 

Dim nHits As Long 


‘Verify that the Windows Message came from MapInfo 
‘If it did come from MapInfo. strip off the "NI:" prefix: 


If Lefts(CommandInfoTexts 3) = "MNI:" Then 
CommandiInfoText = Mids (CommandInfoText,s 4, 9999) 
Else 
EXE Sub 
End If ‘Determine which Tool Selected 


iSelectedButton = CInt(GetField(CommandInfoText,s 717, CMD_INFO_TOOLBTN) ) 
Select Case iSelectedButton 


Case SO1 Pinto cool 
fXpt = CDb1(GetField(CommandInfoTexts 717, CMD_INFO_X)) 'x get x 
and y 
fY¥pt = CDb1l(GetField(CommandInfoText., 171 CMD_INFO_Y)) 'x from 
Commandinfo 


Call DisplaySelectedFacility(fXpt., fYpt) 
End Select 


End Sub 


Private Sub DisplaySelectedFacility(ByVal fXpt As Double. ByVal fYpt As 
Double) 
cProcName = "DISPLAY_SELECTED_FACILITY" 


Dim nHits As Long 

Dim iRecNum As Long 

Dim i As Long 

Dim tMapHits() As InfoTool_Type 
Dim tFacilityInfo As Facility_Type 
Dim rsGeoREFdata As Recordset 


'Get number of "Hits™ using the MapBasic function f{SearchPoint()} 

"FORMAT: nHits = SearchPoint( mapWinID. xi y ) 

nHits = CLng(objGeoSelect-Eval("SearchPoint(” & iMapInfoWinID & "1" & fFXpt & 
"57.8. Ty pitweews oe 


Set rsGeoREFdata = dbAcropolis-QOpenRecordset(Tbl_ValidateUnit, db0OpenTable, 
dbRead0Only) 
rsGeoREFdata-Index = "FACID" 


With frmAriesMain 
'txtPropFacID-Clear 
'trvGISData-Nodes-Clear 
iPropFacIDctr = O 


If Not (nHits = 0) Then ‘there were hits: scan using "SearchInfo" 
ReDim tMapHits(nHits) 
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For) a. = li Townkats 
tMapHits(i)-MapTable = objGeoSelect-Eval("SearchInfo(™ & i & "47 & 
SEARCH_INFO_TABLE & 7™)™) 
iRecNum = CLng(objGeoSelect-Eval("SearchInfo("™ &8 1 & 757 8 
SEARCHVINEOOROW & ")™)) 


ob jGeoSelect-Do "Fetch Rec ™ & iRecNum & " from ™ & 
tNapHits(i)-MapTable 


tMapHits(i)-GeoFacID = objGeoSelect-Eval(tNapHits(i)-NapTable 28 
neo lan) 


'txtPropFacID-AddItem tNapHits(i)-GeoFacID 
Next i 


‘Get & Display Proposed Facility Data 
tFacilityInfo-FacID = !txtPropFacID-List(0) 

Call GetPropFacilityInfo(tFacilityInfo., rsGeoREFdata) 
Call DisplayPropFacilityInfo(tFacilityInfo) 

Call DisplayTreeViewInfo(tNapHits(). nHits) 


If (nHits = 1) Then 


'spinFacIDbtn-Visible = False 
Else 
'spinFacIDbtn-Visible = True 
End If 
Else 'No Facility Selected - Clear all Proposed Facility fields 
'cboUIC-Clear 


')istbxUnitName-Clear 
'lstbxUnitName-AddItem "™** NO FACILITY SELECTED *x*" 
'txtCity = vbNullString 
'txtState = vbNullString 
'txtZipCode = vbNullString 
End If 
End With 
End Sub 


OK KK KKK KKK KK KKK KKK KKK KK KK KKK KK KKK KK KK KKK KK KKK KEK KK KKK KK RE K KEKE KKK KEK KK KS 
SetStatusText 
: This is a standard method that MapInfo looks for in its Callback 
: object- If MapInfo finds this method in the Callback object, it 
: will get called automatically every time the text in NapInfo's 
: status bar text changes- The string passed in is a tab-delimited 
: string containing each of the status bar "Fields". i-e- - the 
: first field is the zoom. scale. or cursor location, the second field 
: is the editable layer, etc. 
ORK K KKK KKK KK KK KKK KK KK KK KK KKK KKK KK KK KK KK KKK KK KKK KKK KEK KEK KKK KK EK KEK KKEKK 
Public Sub SetStatusText (ByVal cStatusText As String) 
cProcName = "SET_STATUS_TEXT" 


Dim cNewText As String 


cNewText = GetField(cStatusText, vbTab. 1) 'x get first field in tab- 
delimited string 


If Not (cNewText = "™") Then 
frmAriesMain!AriesStatusBar-Panels(4)-Text = cNewText 
End If 


End Sub 
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Module 7. MAPBASIC PUBLIC DECLARATIONS 


Purpose: A library module that initializes all public variables and constants for 


communicating with the integrated mapping component. 
Source Type: Visual Basic for Applications 
Source File: libDMAPBASIC.BAS 
Code Listing: 


Attribute VB_Name = “libMAPBASIC" 


emcee ee eee ce ee ee ee ee ee ee eee ae ee eee ee ee ee ee ee ee ee ee ee ee ee ee eee ee eee eee 


' MapInfo version 4-0 - System defines 

eet eee ceen emee cmee Famee cme Veen cemefcmen cce efceefee cece cmee Voencefaenn cence mc cp Dc Ic cme cece fem fae ce Yc esos Yaga ce cl tence ce Tren aire ceed cen fee fom aera eee ce am sa cee osc ee eee 
' This file contains defines useful when programming in the MapBasic 

' language. There are three versions of this file: 

: MAPBASIC.DEF =- MapBasic syntax 

: MAPBASIC-BAS - Visual Basic syntax 

’ MAPBASIC.-H - C/C++ syntax 


General Purpose defines: 

Macros, Logical constants. Angle conversion, Colors 
ButtonPadInfo() defines 
ColumnInfo() defines 
CommandInfo() defines 
FileAttr() defines 
IntersectNodes() parameters 
LayerInfo() defines 
MapperInfo() defines 
MenultemInfoByID() and MenuItemInfoByHandler() defines 
ObjectGeography() defines 
ObjectInfo() defines 
SearchiInfo() defines 
SelectionInfo() defines 
Server statement and function defines 
StringCompare() return values 
StyleAttr() defines 
SystemInfo() defines 
TableInfo() defines 
WindowInfo() defines 
Abbreviated list of error codes 
Backward Compatibility defines 


ee ee ee 


' This file is converted into MAPBASIC-H by doing the following: 

: - concatenate MAPBASIC-DEF and MENU-.DEF into MAPBASIC-H 

: - search & replace ™'" at begining of a line with "//" 

: - search & replace "Define™ at begining of a line with “define” 
! - delete the following sections: 

t 


* General Purpose defines: Macros. Logical Constants. Angle 


Conversions 
: * Abbreviated list of error codes 
5 x Backward Compatibility defines 
' * Menu constants whose names have changed 
: * Obsolete menu items 


SS ee  _  — — e  e | 


' This file is converted into MAPBASIC-BAS by doing the following: 
: - concatenate MAPBASIC-DEF and MENU-DEF into MAPBASIC-BAS 

: - search & replace "Define <name>" with "Global Const <name> =" 
t 


The defines in this file are organized into the following sections: 


e.g. "<Define {L!-z3+} +{£!-2]}" with "Global Const \O = \1i" using Brief 
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' - delete the following sections: 


x General Purpose defines: 


Conversions 
Abbreviated list of error codes 
Backward Compatibility defines 
Menu constants whose names have changed 


Obsolete menu item 


= 


Macros, 


Logical Constants, 


Angle 


= 16777215 
RED = 16711640 
GREEN = 652840 
BLUE = 255 

CYAN = 65535 
MAGENTA = 16711593 
YELLOW = 16776960 


5 


— = oe ee ee ee ee ee eee eee eee eee ee ee ee ee ee eee ee ee ee eee eee ee ee ee ee ee ee eee ee eee ee ee eee ee eee 


— ee ee ee ee eee eee eee ee ee ew wee eee eee i es es es ee ee ee ee 


BTNPAD_INFO_FLOATING 


BTNPAD_INFO_WIDTH 
BTNPAD_INFO_NBTNS 
BTNPAD_INFO_X = 4 
BONPAD TNEOLyY = 5 
BTNPAD_INFO_WINID 


' ColumniInfo() 


defines 


Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 


Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 


COL_INFO_LNAME = Jl 
COL_LINFO_NUM = e 
COPSINEOLTYPE.= 3 
COL_LINFO_WIDTH = 
GOEZ INFO _DECPEACE 
COL_LINFO_LINDEXED 
COL_INFO_LEDITABLE 


COL_TYPE_CHAR = ] 
COEZTYPE_ DECIMAL 
COL_TYPE_INTEGER 
COL_TYPE_SMALLINT 
EOL .TYPESDATE = 5 
COL_TYPE_LOGICAL 
COL_TYPE_GRAPHIC 
COL_TYPE_FLOAT = 


nue 


=e ee ee ee ee eee ee ee ee ee ee ee eee eee ee ee eee eee ee eee ee ee eee eee eee eee ee ee 


Global 


Const 
Const 
Const 
Const 
Const 
Const 
Const 


ChDe UNE Oe = a2 
CODSINE Ole =e 
GhiDe UN OS Sile T 
CMD_INFO_LCTRL = 4 
CMD_INFO_Xe = 5 

CMD_INFO_Ye = 6 

CMD_INFO_TOOLBTN 
CMD_INFO_MENUITENM 
CMD_INFO_WIN = 1 
CMDS INE OSS PET Fe 


1 


Global Const CMND_INFO_ROWID = e 
Global Const CMD_INFO_INTERRUPT = 3 
Global Const CMD_INFO_STATUS = J] 
Global Const CND_INFO_MSG = 1000 
Global Const CMND_INFO_DLG_OK = 1 
Global Const CMND_INFO_DLG_DBL 
Global Const CMD_INFO_FIND_RC 
Global Const CMD_INFO_FIND_ROWID = 4 
Global Const CMD_INFO_XCND = 1] 
Global Const CMD_INFO_CUSTOM_OBJ = JI 
Global Const CMND_INFO_TASK_SWITCH 


ott 
be 


uN 
te 


' Task Switch, returned by CommandInfo(CMND_INFO_TASK_SWITCH) 


Global Const SWITCHING_OUT_OF_MAPINF 
Global Const SWITCHING_INTO_MAPINFO 


lc 


a re ee ee ee ee ee 


Global Const FILE_ATTR_MODE = 1] 
Global Const FILE_ATTR_FILESIZE = e 


Global Const MNODE_INPUT = OD 
Global Const MNODE_OUTPUT 
Global Const MODE_APPEND 
Global Const NODE_RANDONM 
Global Const MNODE_BINARY 


Global Const INCL_CROSSINGS = 1 
Global Const INCL_COMMON = & 
Global Const INCL_ALL = ? 


= oe am ae am ame ieee cee ee ee ee ee ee ee ts ee ee ee ee ee ee ee eee ee ee ee em a am ae ee ice oe ee ee = ge a a a am am —s am am se mee ce oe oe oe oe = ae ae ae am am aw ae = a= = 


Global Const LAYER_INFO_NAME = ] 
Global Const LAYER_INFO_EDITABLE = 
Global Const LAYER_INFO_SELECTABLE 
Global Const LAYER_INFO_ZOOM_LAYERE 
Global Const LAYER_INFO_ZO00OMN_MIN = 
Global Const LAYER_INFO_ZO00OM_MAX = 
Global Const LAYER_INFO_COSMETIC = 
Global Const LAYER_INFO_PATH = 86 
Global Const LAYER_INFO_DISPLAY = 4 
Global Const LAYER_INFO_OVR_LINE = 10 
Global Const LAYER_INFO_OVR_PEN = Ll 

Global Const LAYER_INFO_OVR_BRUSH = le 
Global Const LAYER_INFO_OVR_SYMBOL = 13 
Global Const LAYER_INFO_OVR_FONT = 14 
Global Const LAYER_INFO_LBL_EXPR = 15 
Global Const LAYER_INFO_LBL_LT = lb 

Global Const LAYER_INFO_LBL_CURFONT = 1? 
Global Const LAYER_INFO_LBL_FONT = 16 
Global Const LAYER_INFO_LBL_PARALLEL = 19 
Global Const LAYER_INFO_LBL_POS = 2D 

Global Const LAYER_INFO_ARROWS = el] 

Global Const LAYER_INFO_NODES = ee 

Global Const LAYER_INFO_CENTROIDS = e3 
Global Const LAYER_INFO_TYPE = 24Y 

Global Const LAYER_INFO_LBL_VISIBILITY = 25 
Global Const LAYER_INFO_LBL_Z00OM_MIN 
Global Const LAYER_INFO_LBL_ZO0OM_MAX 
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wou 
rm 
o~ 


ene 


Global Const LAYER_INFO_LBL_AUTODISPLAY = 28 
Global Const LAYER_INFO_LBL_OVERLAP = 29 
Global Const LAYER_INFO_LBL_DUPLICATES = 30 
Global Const LAYER_INFO_LBL_OFFSET = 3] 
Global Const LAYER_INFO_LBL_MAX = 3e 


' Display Modes, returned by LayerInfo() for LAYER_INFO_DISPLAY 


Global Const LAYER_INFO_DISPLAY_OFF = Q 
Global Const LAYER_INFO_DISPLAY_GRAPHIC = ] 
Global Const LAYER_INFO_DISPLAY_GLOBAL = e 
Global Const LAYER_INFO_DISPLAY_VALUE = 3 


' Label Linetypes. returned by LayerInfo() for LAYER_INFO_LBL_LT 
Global Const LAYER_INFO_LBL_LT_NONE 


Global Const LAYER_INFO_LBL_LT_SIMPL 
Global Const LAYER_INFO_LBL_LT_ARROW = e 


m il 


' Label Positions. returned by LayerInfo() for LAYER_INFO_LBL_POS 
Global Const LAYER_INFO_LBL_POS_CC = Q 
Global Const LAYER_INFO_LBL_POS_TL = ] 
Global Const LAYER_INFO_LBL_POS_TC = e 
Global Const LAYER_INFO_LBL_POS_TR = 3 
Global Const LAYER_INFO_LBL_POS_CL = 4 
Global Const LAYER_INFO_LBL_POS_CR = § 
Global Const LAYER_INFO_LBL_POS_BL = b 
Global Const LAYER_INFO_LBL_POS_BC = ? 
Global Const LAYER_INFO_LBL_POS_BR = 86 


' Layer Types. returned by LayerInfo() for LAYER_INFO_TYPE 


Global Const LAYER_INFO_TYPE_NORMAL = 
Global Const LAYER_INFO_TYPE_COSNMETIC 
Global Const LAYER_INFO_TYPE_IMAGE = e 
Global Const LAYER_INFO_TYPE_THEMATIC = 3 


Global Const LAYER_INFO_LBL_VIS_OFF = J] 
Global Const LAYER_INFO_LBL_VIS_ZO0OM 
Global Const LAYER_INFO_LBL_VIS_ON = 


LW it 


SS 


ee ee eee ee we ww we www ee eee ee es ee we ee we we we we em ite ee me om tee ee ew ewe ee ee ies ss oe ie ie i 
— ee eee ee eee ee ee ee ee ee ee ee ee ee eee ee eee eee ie ee mm mee ee ee ee ee ee ee ee ee eee eo ee i ie oe i we ie om om ae oe oe 


Global Const MAPPER_INFO_ZOOM = 1] 
Global Const MAPPER_INFO_SCALE 
Global Const MAPPER_INFO_CENTER 
Global Const MAPPER_INFO_CENTER 
Global Const MAPPER_INFO_MINX 
Global Const MAPPER_INFO_NINY 
Global Const MAPPER_INFO_MAXX 
Global Const MAPPER_INFO_MAXY 
Global Const MAPPER_INFO_LAYERS = 9 
Global Const MAPPER_INFO_EDIT_LAYER 
Global Const MAPPER_INFO_XYUNITS = 
Global Const MAPPER_INFO_DISTUNITS Le 
Global Const MAPPER_INFO_AREAUNITS 13 
Global Const MAPPER_INFO_SCROLLBARS = 14 
Global Const MAPPER_INFO_DISPLAY = 15S 

Global Const MAPPER_INFO_NUM_THEMATIC = Jb 
Global Const MAPPER_INFO_COORDSYS_CLAUSE = 1? 
Global Const MAPPER_INFO_COORDSYS_NAME = 18 
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Global Const MAPPER_INFO_DISPLAY_SCALE = 0 
Global Const MAPPER_INFO_DISPLAY_Z00OM = 1} 
Global Const MAPPER_INFO_DISPLAY_POSITION = 2 


ee ee 


Const MENUITEM_INFO_ENABLED = } 
Const MENUITEM_INFO_CHECKED = e2 
Const MENUITEM_INFO_CHECKABLE = 3 
Const MENUITEM_INFO_SHOWHIDEABLE = 4Y 
Const MENUITEM_INFO_ACCELERATOR = §S 
Const MENUITEM_INFO_TEXT = b 
Const MENUITEM_INFO_HELPMSG 
Const MENUITEM_INFO_HANDLER 
Const MENUITEM_INFO_ID = 9 


it ow 
O 


= ae a oe ee ee ee ee ee ee ee we wwe eee eee ee ee ee ee ee ee ew wT ET EOE ST SE eS ST EE ee ee ee ee eee ee ee eee Se ee eo 


OBJ_GEO_MINX = 1 
OBJ_GEO_LINEBEGX = ] 
OBJ_GEO_POINTX = 1] 
OBJU_GEO_MINY = e 


O0BJ_GEO_LINEBEGY = 2 
OBJ_GEO_POINTY = 2 

OBJ_GEO_MAXX = 3 
OBJU_GEO_LINEENDX 
OBJ_GEO_MAXY = 4 
OBJ_GEO_LINEENDY 
OBJ_GE0_ARCBEGANGLE 
OBJ_GEO_TEXTLINEX = 
OBU_GEO_ROUNDRADIUS 
OBJU_GEO_ARCENDANGLE 
OBU_GEO_TEXTLINEY 
O0BUJ_GEO_TEXTANGLE 


il 
Li 


N 
om ag 


to oot 
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OBJ_INFO_TYPE = 1] 
OBJ_INFO_PEN = eC 
OBJ_INFO_SYMBOL = ec 
OBJ_INFO_TEXTFONT = 
OBJ_INFO_BRUSH = 3 
OBJ_INFO_NPNTS = e0 
OBJ_INFO_TEXTSTRING = 


OBJ_INFO_SMOOTH = 4Y 
OBJ_INFO_FRAMEWIN = 4 
OBJ_INFO_NPOLYGONS = el 
OBJ_INFO_TEXTSPACING = 
OBJ_INFO_TEXTJUSTIFY = 
OBJ_INFO_FRAMETITLE = 6 
OBJ_INFO_TEXTARROW = & 


Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 


Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 


DE mee Al Cos— en 
OBVE TY PBammit PS 


OBVU-TYPESEINE = 3 


OBUZTYPEZPEINE 
OBJ_TYPE_POINT 
OBJ_TYPE_FRAME 
OBJ_TYPE_REGION 


oat tl 


Cen iv PE SRE GT e= 4 


7 
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Global Const OBJ_TYPE_ROUNDRECT = 9 
Global Const OBJ_TYPE_TEXT = 10 


— eee ee ee eee eee ee ee eee ee ee am ae = am am am am am am am am am ee am oe oe Se ie ee me ee ee i oe ee ee ae Se a Se am oe ae oe oe om ae oe oe oe = 


Global Const SEARCH_INFO_TABL 
Global Const SEARCH_INFO_ROW 


1m 


i i i i i i i ee 


Global Const SEL_INFO_TABLENAME 
Global Const SEL_INFO_SELNAME = @¢2 
Global Const SEL_INFO_NROUWS = 3 


eee ree ee ee ee eee eee ee eee em eee ee eee eee me ee am am Se ee ee a Se am Se oe am am am am om am am am am © c= am om om am om S= am oe oe oe ae == 


-— op oe ow om ew ow om om @ om oe oe oe oe ow — ow © oe oe ow Ow ew ew ow ow ew ow ow ow ew ow ew ow S&F ow SF ee Se ee oe ee ee eo ee ee ee ee ee ow 6 ee SF eS ee SF ee ow oe ee ee ee ee ee ee ee ow ee ee oe ee oe ee 


Global Const SRV_SUCCESS = O 

Global Const SRV_SUCCESS_WITH_INFO = 1] 
Global Const SRV_ERROR = -1l 

Global Const SRV_INVALID_HANDLE = -e 
Global Const SRV_NEED_DATA = 99 

Global Const SRV_NO_MORE_DATA = 100 


= om ow om ow om ow eo eo ow oe oe oe ow om om eo oe ow ow of ee ow ew ew ee ew ee em ew em ew eo eo eo ew ew em ee ee ee eo oe 6 SP eo ee ee ow ow 6 ee Se ee oe Fe ao ee ee ee a ee ee em ae ee ee ee ee es eS ee ee 


Global Const SRV_NULL_DATA = -1l 
Global Const SRV_TRUNCATED_DATA = -e 


= ow ow ow ow @ ow ow ow @ ow © ew @ © oo ow ow ow ow ow eo ew oe ew ow ee oe oe eo oe oe oe om om oe om oe oe oF oF oF ie om oo oo oo ow ow 6 oe of oe eo oF oe oe oe oe oe of oe FF ee oe a FF ow oo oe @ = = 


= a a eo ow ow ow oe a oe ow ow ow o ow ow oe oe ee ew ee ee ew ee ee ew oe ee ee oe ee ee ee oe ee ee ee ee ee ee ee em eo ee woe ew oe = ow oe ew oe ew ow ee ee ee ee ee ee ee ee ee ee oo oe ee ee oF oF oe oF eo oe 


Global Const SRV_COL_INFO_NAME = 1] 
Global Const SRV_COL_INFO_TYPE = @¢2 
Global Const SRV_COL_INFO_WIDTH = 
Global Const SRV_COL_INFO_PRECISI0 
Global Const SRV_COL_INFO_SCALE = 
Global Const SRV_COL_INFO_VALUE = 
Global Const SRV_COL_INFO_STATUS = ? 


=a eee ee ee ew ew ew ee eS eS ee eT eS ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee le ee ee eee CS Cee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


Global Const SRV_COL_TYPE_NONE = O 
Global Const SRV_COL_TYPE_CHAR = 1] 
Global Const SRV_COL_TYPE_DECIMAL 
Global Const SRV_COL_TYPE_INTEGER 
Global Const SRV_COL_TYPE_SMALLINT = 4 

Global Const SRV_COL_TYPE_DATE = 5S 

Global Const SRV_COL_TYPE_LOGICAL = b 

Global Const SRV_COL_TYPE_FLOAT = 8 

Global Const SRV_COL_TYPE_FIXED_LEN_STRING = lb 
Global Const SRV_COL_TYPE_BIN_STRING = 1? 
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Global Const SRV_DRV_INFO_NAME = 1] 
Global Const SRV_DRV_INFO_NAME_LIST = 2 
Global Const SRV_DRV_DATA_SOURCE = 3 
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Global Const SRV_FETCH_NEXT 
Global Const SRV_FETCH_PREV 
Global Const SRV_FETCH_FIRST = <3 
Global Const SRV_FETCH_LAST = <4 
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Global Const STR_LT = o-] 
Global Const STR_GT = 1] 
Global Const STR_E@ = 0 
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' StyleAttr() defines 

Global Const PEN_WIDTH = J 

Global Const PEN_PATTERN = 
Global Const PEN_COLOR = 4 
Global Const BRUSH_PATTERN = 
Global Const BRUSH_FORECOLOR 
Global Const BRUSH_BACKCOLOR 
Global Const FONT_NAME = 1] 
Global Const FONT_STYLE = e 
Global Const FONT_POINTSIZE 
Global Const FONT_FORECOLOR 
Global Const FONT_BACKCOLOR 
Global Const SYMBOL_CODE = J] 
Global Const SYMBOL_COLOR = e 
Global Const SYMBOL_POINTSIZE = 3 
Global Const SYMBOL_ANGLE = 4 
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SYMBOL_FONT_NAME = §& 
SYMBOL_FONT_STYLE = & 
SYMBOL_KIND = ? 
SYMBOL_CUSTOM_NAME = 86 
SYMBOL_CUSTOM_STYLE = 19 


Global Const SYMBOL_KIND_VECTOR = 
Global Const SYMBOL_KIND_FONT = e 
Global Const SYMBOL_KIND_CUSTOM = 


' SystemInfo() defines 

Global Const SYS_INFO_PLATFORM 
Global Const SYS_INFO_APPVERSIO 
Global Const SYS_INFO_MIVERSION = 3 
Global Const SYS_INFO_RUNTIME = 4 

Global Const SYS_INFO_CHARSET = 5 

Global Const SYS_INFO_COPYPROTECTED = Lb 
Global Const SYS_INFO_APPLICATIONWND = ? 
Global Const SYS_INFO_DDESTATUS = 8 
Global Const SYS_INFO_MAPINFOWND = 9 
Global Const SYS_INFO_NUMBER_FORMAT = 10 
Global Const SYS_INFO_DATE_FORMAT = J] 
Global Const SYS_INFO_DIG_INSTALLED = le 
Global Const SYS_INFO_DIG_MODE = 13 
Global Const SYS_INFO_MIPLATFORM = 14 
Global Const SYS_INFO_MDICLIENTWND = 15 
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' Platform, returned by SystemInfo(SYS_INFO_PLATFORM) 

Global Const PLATFORM_SPECIAL = 0 

Global Const PLATFORM_WIN = J], 
Global Const PLATFORM_MAC = e 
Global Const PLATFORM_MOTIF = 
Global Const PLATFORM_X11 = 4 
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Global Const PLATFORM_XOL = S 


' Versions returned by SystemInfo(SYS_INFO_MIPLATF ORM) 
MIPLATFORM_SPECIA 
MIPLATFORM_WINLE 

MIPLATFORM_WIN3e 

MIPLATFORM_POWERN 
MIPLATFORM_MACL&K 
MIPLATFORM_HP = S 
MIPLATFORM_SUN = bL 


> I Wo 


Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 


Const 


TAB_LINFO_NAME = 1] 
TAB_INFO_NUM = e 

TABEINE GSI YPE = 3 
TABMENROENGOES = 

TAB_LINFO_MAPPABLE 
TAB_INFO_READONLY 
TAB_LINFO_TEMP = 7? 
TAB_LINFO_NROWS = 

TAB_LINFO_EDITED = 
TAB_INFO_FASTEDIT 
TAB_INFO_UNDO = 


TAB_INFO_USERMAP 


TAB_INFO_USERBROWSE = 
TABLINFOLUSERCLOSE 
TAB_INFO_USEREDITABLE = 
TAB_INFO_USERREMOVEMAP = 
TAB_INFO_USERDISPLAYMAP = 


TAB_INFO_TABFILE 
TAB_INFO_MINX 
TAB_INFO_MINY 
TAB_INFO_MAXX 
TAB_INFO_MAXY = 
TAB_LINFO_SEAMLESS 


TAB_INFO_COORDSYS_ 
TAB_INFO_COORDSYS_ 
TABmUNEOCMCCORDSYS _ 
TAB_INFO_COORDSYS_ 
TAB_INFO_COORDSYS_ 
TAB_INFO_COORDSYS_ 
31 


TAB_LINFO_NREFS = 


defines, returned 
TAB_TYPE_BASE = ] 
TAB_TYPE_RESULT = 
TAB_TYPE_VIEW = 3 
TAB_TYPE_IMAGE = 
TAB_TYPE_LINKED = 


Li 
TAB_INFO_MAPPABLE_ 
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TABLE = 
13 


Le 


LY 

= 15 

Lb 
L? 
L& 
L4 


= ¢4 
MINX 
MINY 
MAXX 
MAXY 
CLAUS 
NAME 
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by TableInfo(<tab_ref>. TAB_INFO_TYPE) 


Global 


Const 
Const 
Const 
Const 
Const 


WIN_INFO_NANE 
WIN_INFO_TYPE 
WIN_INFO_WIDTH = 
WIN_INFO_HEIGHT = 
WIN_INFO_X = 6 
WIN_INFO_Y = ? 
WIN_INFO_TOPMNOST 
WIN_INFO_STATE = 
WIN_INFO_TABLE = 


& 


L0 
WIN_INFO_LEGENDS_MAP = 
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Global Const WIN_INFO_OPEN = Jl 

Global Const WIN_INFO_WND = le 

Global Const WIN_INFO_WINDOWID = 13 
Global Const WIN_INFO_WORKSPACE = 14 
Global Const WIN_INFO_CLONEWINDOW = 15 
Global Const WIN_INFO_SYSMENUCLOSE = 1b 
Global Const WIN_INFO_AUTOSCROLL = 1? 


' Window types. returned by WindowInfo(<win_id>. WIN_INFO_TYPE) 


Global Const WIN_MAPPER = 1] 
Global Const WIN_BROWSER = ec 
Global Const WIN_LAYOUT = 3 
Global Const WIN_GRAPH = 4Y 
Global Const WIN _BUTTONPAD = 19 
Global Const WIN_HELP = 1001 
Global Const WIN_MAPBASIC = 1002 
Global Const WIN MESSAGE = 1003 
Global Const WIN _RULER = 1007 
Global Const WIN_INFO = 1008 
Global Const WIN_LEGEND = 1005 
Global Const WIN_STATISTICS = 1010 
Global Const WIN_MAPINFO = 1011 
t 


Global Const WIN_TOOLPICKER = 1004 
Global Const WIN_PENPICKER = 1005 
Global Const WIN_SYMBOLPICKER = 1006 


Global Const WIN_STATE_NORMAL = O 
Global Const WIN_STATE_MINIMIZED = 1 
Global Const WIN_STATE_MAXIMIZED = ce 
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Global Const WIN_STYLE_STANDARD = ODO 

Global Const WIN_STYLE_CHILD = 1 

Global Const WIN_STYLE_POPUP_FULLCAPTION = e 
Global Const WIN_STYLE_POPUP = 2 


ce ee ee ee ee ec ee ce ee ee ee ee ee ee ee ere eee es ss ee ee ee ee ee ee eee ee eee ee es ee ee ee ee eee ee ee oe 
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' This file contains defines useful when programming in the MapBasic 
' language- The definitions in this file describe the standard MapInfo 
' functionality available via the "Run Menu Command” MapBasic statement. 


' The defines in this file are organized to match the sequence of 
' declarations in the MAPINFOW-MNNU file. which in turn reflects the 
' organization of the MapInfo menus and buttonpads. 


ce ew ee ee ee ee ee ee ee ee ee ee ew ee ee ee ee ee ee ee es ee ee ee we oe oe oe = == 


Global Const M_FILE_NEW = 101 

Global Const M_FILE_OPEN = 10e 

Global Const M_FILE_OPEN_ODBC = 1]b 
Global Const M_FILE_ADD_WORKSPACE = 1084 
Global Const M_FILE_CLOSE = 103 


Za) 


Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 


Global 
Global 


Const Maple SGloOSESALL = 
Const M_FILE_SAVE = 105 
Const MZFILELSAVELCOPYEAS = 
Const MLFILE_SAVE_WORKSPACE 
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105 


Const 
Const 
Const 
Const 
Const 
Const 


Const 
Const 


Const 
Const 
Const 
Const 
Const 


Const 
Const 
Const 


M_FILE_SAVE_WINDOW_AS 604 


M_FILE_REVERT = 
M_FILE_RUN = Ji] 
Nf TILES PAGESS ET 
Nor ILE P RAND = 
N= FAILEA BAI = 


M_SENDMAIL_CURR 
M_SENDMAIL_WORK 


M_EDIT_UNDO = e 
NMZEDITScUr = cD 
NEDSS e-.c 
M_EDIT_PASTE = 
M_EDIT_CLEAR = 
MJEDETSCLCEAROBT 
eee SHAPE 
M_EDIT_NEW_ROW 
M_EDIT_GETINFO 


LO? 
0 
UP = 
Lie 
13 
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ENTWINDOW = 
SPACE = 115 


L14 


O1 

e 

O03 

eD4 
eS 

= 2Db 
L601 
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M_OBJECTS_SET_TARGET = 
M_OBJECTS_CLEAR_TARGET = 
M_OBJECTS_COMBINE = 1605 
M_OBJECTS_SPLIT = 1b12 
M_OBJECTS_ERASE = 1613 
M_OBJECTS_ERASE_OUT = 1b14 
M_OBJECTS_OVERLAY = 1615 
M_OBJECTS BUFFER = 1bOb 
M_OBJECTS_SMOOTH = 1b02 
M_OBJECTS_UNSMOOTH = 1603 
M_OBJECTS_CVT_PGON = 1607 
M_OBJECTS_CVT_PLINE = 1b04 


M_LANALYZE_SELECT = 301 
M_ANALYZE_SQ@LQUERY = 302 
M2ANAIEYZE=SELECTALL = 382 
M_ANALYZE_UNSELECT = 304 
M_ANALYZE_FIND = 305 
M_ANALYZE_FIND_SELECTION = 
MANA EY Zee GALC STATISTICS = 


3Ob 
300 


' Table. Maintenance, and Raster menus 


Const M_TABLE_UPDATE_COLUMN = 4Q5 


Global 


Global 
Global 
Global 
Global 
Global 


Const 
Gonst 
Const 
Const 
Const 
Const 


Const 
Const 
Gons & 
Const 
CONSE 


M_TABLE_APPEND = 41 
M_TABLE_GEOCODE = 4D? 
M_TABLE_CREATE_POINTS = 4086 
M_TABLE_NERGE_USING_COLUMN = 
M_TABLE_IMPORT WO) 
M_TABLE_EXPORT “Oe 


YOb 


M_TABLE_MODIFY_STRUCTURE = 
M_TABLE_DELETE = 4095 
M_TABLE_RENAME = 410 
M_TABLE_PACK = 404 
M_TABLE_MAKEMAPPABLE = 


yOu 


4W15 
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Global 
Global 


Global 
Global 
Global 


Gons ¢& 
Const 


Const 
Const 
Const 


M_TABLE_UNLINK = 
METABEESKEPRESH== 


Wb 
U1? 


METABLE RASTER STYLE 
M_TABLE_RASTER_REG 
MeTOOLS KRASTER_-REG 


MOFORMAT_PICK_LINE 
M_FORMAT_PICK_FILL 
M_FORMAT_PICK_SYMBO 
M_FORMAT_PICK_FONT = 
M_WINDOW _BUTTONPAD = 
M_WINDOW_LEGEND = 606 
M_WINDOW STATISTICS = 


~uou 


=a a 
4y13 
1730 


504 
LOS 


LO? 


M_WINDOW_MAPBASIC = 6086 
M_WINDOW_STATUSBAR = 61b 
M_FORMAT_CUSTOM_COLORS = 
M_EDIT_PREFERENCES = 206 
MeEDL TP REEERENCES SVS Tenis 
NMZEDITIPREFERENCES Efe P= ein 
M_EDIT_PREFERENCES_MAP = ele 
M_EDIT_PREFERENCES_COUNTRY = 
MZEDITZPREFERENCES_PATH = 214 


b1? 
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M_WINDOW BROWSE = LOL 
M_WINDOW_MAP = LOe 
M_WINDOW GRAPH = bO03 
M_WINDOW LAYOUT = BOY 
M_WINDOW_REDISTRICT = 
M_WINDOW_REDRAW = £190 
M_WINDOW_TILE = b11 
M_WINDOW CASCADE = ble 
M_WINDOW_ARRANGEICONS = 
M_WINDOW_MORE = 614 
M_WINDOW_FIRST = 620 


b15 


b13 


M_HELP_CONTENTS = leOe 
M_HELP_SEARCH = 1203 
M_HELP_USE_HELP = 1204 
MSHECPLTECHSUPPORT = Lele 
M_HELP_CONNECT_MIFORUM = 
M_HELP_ABOUT = 1c05 


12045 
Global 
Global 1201 
Global 


M_HELP_CONTEXTSENSITIVE = 
M_HELP_HELPMODE = 1ce0L 


Global Const M_BROWSE_PICK_FIELDS = 704 


Global Const M_BROWSE_OPTIONS = ?03 


Global Const M_MAP_LAYER_CONTROL = 
Global Const M_MAP_THEMATIC = 30? 
Global Const M_MAP_MNODIFY_THEMATIC 


401 


= 308 
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Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 


Const M_MAP_CHANGE_VIEW = 
Const M_MAP_CLONE_MAPPER = 
Const M_MAP_PREVIOUS = 80b 
Const M_MAP_LENTIRE_LAYER = 8D? 
Const M_MAP_CLEAR_CUSTOM_LABELS = 
Const M_MAP_SAVE_COSMETIC = 809 
Const M_MAP_CLEAR_COSMETIC = 810 
Const M_MAP_SET_CLIP_REGION = 86le 
Const M_MAP_CLIP_REGION_ONOFF = 813 
Const M_MAP_SETUPDIGITIZER = 8603 
Const M_MAP_OPTIONS = 802 


605 
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M_LAYOUT_CHANGE_VIEW = 902 
M_LAYOUT_ACTUAL = 903 
M_LAYOUT_ENTIRE = 904 
M_LAYOUT_PREVIOUS = 905 
M_LAYOUT_BRING2FRONT = 0b 
M_LAYOUT_SEND2@BACK = 90? 
M_LAYOUT_ALIGN = 908 

M LAYOUT_DROPSHADOWS = 909 


M_LAYOUT_DISPLAYOPTIONS = 4901 


Global 
Global 
Global 
Global 


M_GRAPH_TYPE = 1001 
M_GRAPH_LABEL_AXIS 
M_GRAPH_VALUE_AXIS 


= 100¢ 
M_GRAPH_SERIES = 1004 


1003 


Global Const M_MAPBASIC_CLEAR = 1101 


Global Const M_MAPBASIC_SAVECONTENTS = 110¢e 


Global 


Const 
Const 
Const 
Const 
Const 


M_REDISTRICT_ASSIGN 
M_REDISTRICT_TARGET 
M_REDISTRICT_ADD = 
M_REDISTRICT_DELETE 
M REDISTRICT_OPTIONS = 


70? 


M TOOLS_SELECTOR = 1701 
M_TOOLS_SEARCH_RECT = 1722 
M_ TOOLS SEARCH_RADIUS = 1703 
M_TOOLS SEARCH_BOUNDARY = 1704 
M_TOOLS EXPAND = 1705 
M_TOOLS_SHRINK = 1706 
M_TOOLS_RECENTER = 1702 

M TOOLS PNT_QUERY = 1707 
M_TOOLS_LABELER = 1708 

M TOOLS _DRAGWINDOW = 1734 

M TOOLS RULER = 1710 


M_TOOLS_POINT = L?hl 
M_TOOLS_LINE = l?le 
NelOVE Ser ely EINE = 
M_TOOLS_ARC = 1?lb 


L713 
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Global 
Global 
Global 
Global 
Global 
Global 
Global 


Conse 
Const 
Const 
Const 
Const 
Const 
Const 


M_TOOLS_POLYGON 
lerveES EEL TPSeE 
M_TOOLS_RECTANGLE = 
M_TOOLS_ROUNDEDRECT = 
M_TOOLS_TEXT = 1705 

M_TOOLS_FRAME = 17145 
M_TOOLS_ADD_NODE = 1?23 


L?18 


Global Const M_TOOLS_MAPBASIC = 1720 


Const M_TOOLS_SEARCH POLYGON = 1733 
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Module 8. SPATIAL SELECTION PROGRAM 


Purpose: A MapBasic program that spatially selects the desired data within 50 miles of the 
specified location and locates the closest Army Reserve support facilities. 


Source Type: MapBasic Spatial Application Development Language 
Source File) ARIESARCH.MBA 


Code Listing: 


PK KK KKK KK RK KR KKK RR KK RR KK KEK KK KK KK KKK KKK KKK KK KK KKK KKK KES 
ARIES SDSS SPATIAL SELECTION PROGRAM -- PHASE One 


EXTRACTS SELECTED DATA FROM AROUND PROPOSED FACILITY SITE 


KKKKKKKKKKKKKKKKK KKK KK KEK K KEK AKK KKK KKK KKK KEE KKK KKK KK KKK KK KKK KKK KK KKK KKK KK KKKKKKS 


Include "c:\mapinfo\mapbasic\mapbasic-def™ 
Include "c:\mapinfo\mapbasic\menu-def" 
Include "c:\mapinfo\mapbasic\icons-def" 


Declare Sub Main 


Global AMSA_ID.iAMSA_Dist. 
ECS_ID,. ECS_Dist. 
RZA_ID. RZA_Dist, 
fProposedFacility.ifAreaDistance. fAreaFacID, fAreaZipCode, 
fAreaGl&.ifAreaIRRifAreaQ@MA.TargetZip, cPropFacID As String 


Sub MAIN 
Dim FacIDLat. FacIDLong As Float 
Dim objAreaBuf feriobjDistanceBuffer. objGl@Buffer As Object 
Dim iRowNum As Integer 
Dim cFilePath, AuthStrength As String 


cFilePath = ApplicationDirectory$() 
Set Map Center (-96,37) Zoom 3500 Units "mi" 


Create Index On US_Zips(Zip_Code) 
Create Index on AMNSA(Fac_Zip) 
Create Index on ECS(Fac_Zip) 
Create Index on RZA(Zip) 


Create Index on GEOREF(Fac_ID) 
Create Index on GL&CWE(Zip) 
Create Index on IRR(Zipc) 
Create Index on QMA(Zip) 
Create Index on Non_Clos(Zip) 


fAreaDistance = cFilePath & “"AriesData\AreaDist.DBF" 
fAreaFacID = cFilePath & “AriesData\AreaFac.DBF" 
fAreaZipCode = cFilePath & “AriesData\AreaZip. DBF" 
fProposedFacility = cFilePath & “AriesData\PropFac.DBF” 


fAreaG1& = cFilePath & "AriesData\AreaGl]l&.DBF" 
fAreaIRR = cFilePath & “"AriesData\ArealIRR.DBF"” 
fAreaQ@MA = cFilePath & “"AriesData\AreaQg@MA.DBF" 


Open Table fAreaDistance 


aT 


Delete From AreaDist 


Open Table fAreaFacID 
Delete From AreaFac 


Open Table fAreaZipCode 
Delete From AreaZip 


Open Table fProposedFacility 
cPropFacID = PropFac-Fac_ID 

Pack Table PropFac Data 

Close Table PropFac 


Open Table fAreaGl& 
Delete From AreaGl& 


Open Table fAreaIRR 
Delete From ArealRR 


Open Table fAreaQ@MA 
Delete From Area@MA 
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(1) DETERMINE LATITUDE & LONGITUDE OF TARGET ZIP CODE 
(2) CENTER MAP AT TARGET ZIP 
(3) CREATE SOMT RADIUS CIRCLE AROUND TARGET ZIP CODE. 


Find Using GEOREF(Fac_ID) 
Find cPropFacID 


FaciIDLat = CommandInfo(CMD_INF0O_X) 
FacIDLong = Commandinfo(CMND_INFO_Y) 


Set CoordSys Earth 
"Create Point(FacIDLat.i FacIDLong) Symbol (55, RED, 24) 


Insert Into Sites (obj) Values (CreatePoint(FacIDLat. FacIDLong) ) 
Update Sites Set Fac_ID = cPropFacID Where RowID = 1 


Set Map Center (FacIDLat.FaciIDLong) Zoom 500 Units "mi" 
Set Distance Units "mi" 


objAreaBuffer = CreateCircle (FacIDLatiFacIDLong.,50) 
objG1&Buffer = CreateCircle(FacIDLat.iFacIDLong,50) 
objDistanceBuffer = CreateCircle(FacIDLat.iFacIDLong,300) 


ee ed ee ee ee ee ed ee ee ee ee ee ee ee ee 
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BUILD A TABLE OF ZIPCODES W/IN 50 MI OF THE PROPOSED 
PAGEE LT ¥ 
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Select Zip_Code From US_Zips 
Where Obj Within objAreaBuffer order by Zip_Code into TempZip 


Insert Into AreaZip 
Select * From TempZip 


Commit Table AreaZip 
Pack Table AreaZip Data 


eee eee ee eee ee ee ee ee ee eee ee ee ee ee ee ee em ee ee ee ee ee ee eo ee eee ee ee ee eee eee eee 


BUILD A TABLE OF PAGILITY 1D°S W7IN SH ME OF THE PROPOSED 
FACILITY 


Select Fac_ID From GEOREF 
Where Obj Within objAreaBuffer order by Fac_ID into TempFacID 
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Insert Into AreaFac 
Select * From TempFacID 


Commit Table AreaFac 
Pack Table AreaFac Data 


—_—— = oa oo oe a oe ae ae eee ee ee ee ee ee ee eee ee ee eee ee eS ee ee ee EE EE Se eae Se ee 


Select * From RZA 
Where Obj Within objDistanceBuffer into TempRZA 


Select Distance(CentroidX (obj) i1Centroidy (obj) .FacIDLatiFacIDLong.i"mi™) 
"Distance™ 
From TempRZA order by Distance into TempRZA_Dist 


RZA_Dist = TempRZA_Dist-Distance 


eee ee meme eee eee ee ee ew we we we www ee eee we we we we we ee we we wwe we wee we wee we we we ee ee we ee ee ie = ee 
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Select * From AMSA 
Where Obj Within objDistanceBuffer into TempAMSA 


Select Distance(CentroidX (obj) .CentroidY (obj) 1FacIDLatiFacIDLong."mi™) 
“Distance” 
From TempAMSA order by Distance into TempAMSA_Dist 


AMSA_Dist = TempAMSA_Dist-Distance 


ee 
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Select * From ECS 
Where Obj Within objDistanceBuffer into TempECS 


Select Distance(CentroidX (obj) i1CentroidY (obj) s.FacIDLat,FacIDLong."mi™) 
"Distance”™ 
From TempECS order by Distance into TempECS_Dist 


ECS_Dist = TempECS_Dist-.Distance 


cme we ww eee ee we we ee ee eee ee eee ee www ee ee ew ww ww ee ie i ii ce 
Oe ee 


DETERMINE AUTHORIZED STRENGTH OF THE NAT GUARD UNITS 
WITHIN SO MILES OF TARGET ZIP CODE 


eww www ee wee wee ie ee em ee wee ee ee ww ww ww ww ww ww ee ie i 
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Select * From NON_CLOS 
Where Obj Within objAreaBuffer into TempNGUnits 


Select SUMCAUTH) "NO_AUTH_NG" 
From TempNGUnits into Strength 


AuthStrength = Strength-NO_AUTH_NG 


cme wee wee eee ewe ew we we ee we we we we we we we we ww we we we ee eee eee eee we we we wee we ee ee ee ee we ww wwe we we ice te te 
me cece emcee tee pms cmc crm creme ee ee eee eee ee ee ee ee eee eee eee eee ee me ee ee ee ee ee es ee ee ee ie ee = 


OUTPUT AMSA. ECS. RZA DISTANCES TO AREA DISTANCE FILE 


meee we we wee ee we we we wees ee eee ew we www we we we we we eee ew eee we we we we ww we we we we we ww eee ww ww we ee ie ie 
eee ce ec ee eee eee meme ee eee ee ee ee ee ee eee eee ee ee ee eee ee ee ee ee eee eee ee ee ee ee a= 


Insert into AreaDist 
Values (AMSA_Disti ECS_Disti RZA_Dist.i AuthStrength) 
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Commit Table AreaDist 
Pack Table AreaDist Data 


i BUILD A TABLE OF G18 Personnel W/IN SQ MI OF THE PROPOSED 
: FACILITY 


Seleict UICG>s LER I=(2Z0Rsso) ZIPCODE"; PRI “HOS” From GiéCulE 
Where Obj Within objG1&Buffer and PRI <> "™" 
Order by UIC, ZIP into TempGlé 


Insert Into AreaGlé 
Select * From TempGlé& 


Commit Table AreaGlé& 
Pack Table AreaGl& Data 


; BUILD A TABLE OF IRR Personnel W/IN SO MI OF THE PROPOSED 
: FACILITY 


Se Melet “ZIPG "ZIP os EEFTSCPNOS.3) “MOS” From IRK 
Where Obj Within objAreaBuffer and ZIPC <> "™" and PMOS <> ™ 
Order by Zipc into TempIRR 


Insert Into ArealRR 
Select * From TempIRR 


Commit Table ArealIRR 
Pack Table AreaIRR Data 


—_— | oe oe ae eee ee ee eee ee ee ee ee ee eee ee ee ee ee ee ee ee oe oe = 


: BUILD A TABLE OF @MA Personnel W/IN SO MI OF THE PROPOSED 
: FACILITY 


Select LEFTS(ZIP.i5) "ZIPCODE". MUCATI2. MUCAT3A., MBCAT1le. MBCATS3A, 
MHCATL2. MHCAT3SA From @MA 

Where Obj Within objAreaBuffer 

Order by Zip into Tempa@ma 


Insert Into Area@gMA 
Select * From Temp@ma 


Commit Table Area@MA 
Pack Table AreaagNA Data 


PRKKKKKK KK KKK KKK KKK KK KK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKKKKEKK 


: END MAIN PROGRAM 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSS SSS SSS SS SSSS SSS SSE SESS SS: 


Delete from Sites 

Commit Table Sites 

Pack Table Sites Data 
Ex1t Sub 


end SUB 
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